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Preface 


“The PTA at our school has given us two microcomputers. Since I am a 
math/science teacher, the principal said I should use them in my classes. I 
had one course in Fortran programming about five years ago; I know very 
little about computers and absolutely nothing about how to use them with 
instruction. I am aware that they are being used as effective teaching tools. 
But how? What do I need to know to get started?” 

An Inservice Teacher 


“As part of an education course I’m taking, I recently sat in on a school 
board meeting of our district. The agenda included a presentation by a man 
demonstrating the instructional uses of microcomputers. The man’s assistant, 
who operated the microcomputer, loaded and ran programs and, in general, 
demonstrated the system, was his six-year-old daughter! It is obvious to me 
that I'll be facing many young students who are using microcomputers at 
home and in the school. Even more obviously, I'll need to know something 
about the different uses of micros: What they can and cannot do, how they 
are programmed, how these programs are made and tested, and so on. But 
I don't want to become a "computer scientist." I want to know the funda- 
mentals that will let me make practical use of a microcomputer in an instruc- 
tional setting." 

A Preservice Teacher 


This book is designed for teachers who find themselves in situations similar 
to those cited in the two examples above. It is based upon a university course in 
which hundreds of teachers in grade levels elementary through college have been 
introduced to the fundamentals of the instructional use of computers and have 
successfully designed and developed programs for use in their own areas of 
interest. 

This book is not designed to teach general computer literacy: There is little 
mention of the history, architecture, or use of computers in society. Nor is it a 
text to train computer programmers: Several language statements common to 
programming texts are omitted because their application is not typical of the 
instructional use of computers. 
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This is a practical book for the teacher who needs to know the fundamentals 
of the BASIC programming language for the Apple microcomputer and how to 
apply them to the design and development of instructional computing programs. 
It has been our experience that, given these fundamentals, teachers have the 
proficiency to expand upon this base and develop efficient programs designed to 
meet their specific needs. 


The text consists of nine chapters and four appendices and is divided into 
two parts. In Part One, the first four chapters discuss the BASIC programming 
language statements and commands common to five areas of instructional com- 
puting use: problem solving, drill and practice, tutorial dialog, simulation and 
gaming, and testing. Chapter 5 summarizes and reviews these statements and 
their applications. Chapter 6 gives relatively short example and model programs 
in each of these five areas. Chapter 7 discusses and demonstrates the simple use 
of graphics as an instructional technique. 


In Part Two, Chapters 8 and 9 discuss the specific steps needed to first design 
and then develop instructional computing programs. The appendices include 
instructions for "booting up" the microcomputer; instructions for loading, edit- 
ing, and saving programs; commands and statements unique to the Apple micro- 
computer; answers to questions and problems given in the chapters; and an 
annotated bibliography of journals and other publications dealing with instruc- 
tional computing. 


As a matter of personal preference, some readers may wish to study Chapters 
8 and 9 on design and development prior to the chapters on BASIC. We believe, 
however, that practical design and development can come only after the working 
guidelines for the language are established. Thus, BASIC fundamentals are pre- 
sented before the discussion of design fundamentals. 


Twenty-six programs ranging from simple introductory examples to more 
complex instructional computing application models, plus a "keyword" subrou- 
tine and a program "menu" routine are presented in the text. Professors adopting 
the text may write to the publisher for a free copy of the software diskette, which 
contains these programs along with solution programs to selected problems in 
the text. On request, the publisher will make copies of the diskette available to 
students for $11.95 each. 


The authors are indebted to many people for the development of this book. 
Only with the critical review of the manuscript by Sister Mary K. Keller of Clark 
College, Professor Edward B. Wright of Western Oregon State College, Professors 
Dennis Harper and Jeffrey Marcus of the University of California at Santa Bar- 


bara, the encouragement of Mr. James Е Leisy, Jr., of Brooks/Cole Publishing 
Company, and the excellent copy editing of Mr. Trevor Grayling, could this book 
have been published. Production was ably directed by Mr. Greg Hubit of Greg 
Hubit Bookworks. Additional assistance was provided by Mr. Morgan Watkins 
of the University of Texas at Austin, Mr. Carey Van Loon of California State 
College, San Bernardino, and Mr. Larry Hall. Most of all, we wish to gratefully 
acknowledge the contribution ofthe 708 students who have provided direct input 
and response during the development stages of this book. 


GHC 
HN 
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Introduction 


This book contains nine chapters that describe an approach to using a com- 
mon programming language, BASIC, for the design and development of instruc- 
tional computing programs for Apple microcomputers. These chapters discuss 
certain fundamentals of the language and the design and developmental processes 
that provide a foundation for the production of instructional computing programs. 

There are more than one hundred books available that teach BASIC (the 
Beginners' All-purpose Symbolic Instruction Code, developed by John G. Kemeny 
and Thomas E. Kurtz at Dartmouth College). Although most of these books are 
very thorough in describing BASIC, they usually emphasize problem-solving 
applications. Our emphasis, on the other hand, is on instruction in the use of 
BASIC in the design and development of materials for instructional computing, 
which we now proceed to define. 

Simply put, any use of computing techniques within the classroom may be 
broadly defined as instructional computing (sometimes known as computer-assisted 
instruction). Specifically, it includes: 


1. Problem solving, in which computer programs are written to solve dis- 
cipline-oriented problems. 


2. Drill and practice on fundamental concepts using computer programs in 
a given discipline. 


3. Tutorial dialog, in which computer programs provide "tutorlike" assis- 
tance in pointing out certain types of mistakes, providing review if needed, 
skipping areas in which proficiency is shown, and so on. 


4. Simulation, in which computer programs allow manipulation and inter- 
pretation of certain elements related to given physical or social phenom- 
ena without the constraints of time, space, equipment, and environ- 
mental or logistical limits. 


5. Testing, in which computer programs ask the questions, check the answers, 
and record the performance. 


For our purposes, the term instructional computing is used to include all of these 
applications. 
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The Use of BASIC An introduction to some of the fundamentals of 

BASIC is provided in this book. This introduction is not intended to produce 

highly accomplished and skilled programmers. Rather, it gives only the funda- 

mentals needed to write fairly simple programs for instructional computing appli- 
cations. Model programs are described that illustrate this use. 

Although many different programming languages may be used in instruc- 
tional computing, there are several reasons for using BASIC: 


1. Itis easy to learn and easy to use. 


2. Itisa common interactive language (see Section 1.3), available on large 
computer systems costing millions, medium-sized systems costing 
hundreds of thousands, minisystems costing tens of thousands, and small 
systems (commonly called micros or personal computers) costing a few 
hundred to a few thousand dollars. 


3. It may be used in all applications of computer-based instruction. 


4. It is the introductory computer language used in most secondary and 
many elementary schools. 


5. Itis the most common language of microcomputers—an area of com- 
puter technology that is making the major impact on education in this 
decade. 


Design Following the introduction to BASIC, a method for designing 
instructional materials called the systems approach is outlined. This approach, in 
essence, is a logical, step-by-step process for identifying the tasks and activities 
needed in the production of validated instructional materials. 


Development The development of instructional computing pro- 
grams by the reader is the ultimate goal of this book. Initially, the development 
phase overlaps the design phase in which paper, pencil, and brain power are the 
principal ingredients. This involves outlining the rationale, objectives, and 
instructional sequence of one or more instructional computing programs. After 
this is outlined on paper, it is translated into the BASIC programming code. 
Following this, it is necessary to spend considerable time at a computer entering, 
testing, and refining what has been designed and developed on paper. 

As a final introductory note, it should be emphasized that this book assumes 
no previous experience whatsoever with computers. On the other hand, it is not 
designed to provide detailed information on computers in general or how they 
operate. Rather, it introduces the ways and means by which the Apple? com- 
puter* may be used within the instructional process. 

Now, let us begin by getting down to the BASICs . .. 


* Apple is a registered trademark of Apple Computer, Inc. 
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"Nothing in life is to be feared. It is only to 
be understood." 
—Marie Curie 


"In certain trying circumstances, urgent circumstances, 
desperate circumstances, profanity furnishes a relief 
denied even to prayer. 

—Mark Twain 


Think About This (for Eun) 


Rearrange the letters of NEW DOOR to form one word. [Note: Answers to Think 
About This for Fun questions may be found in Appendix C.] 


Think About This (Seriously) 


Does a computer possess intelligence? 
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1.1 OBJECTIVES 


For the successful completion of this chapter, you should be able to: 


1. 
2; 
3; 


List five general applications of computer-based instruction (Introduction). 
Define two ways in which computers may be accessed (Section 1.3). 


List the steps necessary to “boot up” (power up) a computer system 
(Appendix A). 


State how a BASIC program may be entered on that system after the 
booting up (Section 1.5.5 and Appendix A). 


Define what (not who) composes a BASIC program (Section 1.4.1). 
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6. Distinguish between BASIC statements and commands (Sections 1.4.1— 
1.4.2). 


7. Define the action of the following BASIC commands: NEW, RUN, LIST, 
and SAVE (Section 1.4.2). 


8. Define and give at least one example of both a Numeric variable and a 
String variable (Section 1.4.3). 


9. Describe the use of commas and semicolons in BASIC for purposes 
other than punctuation (Section 1.4.4). 


10. Define the purpose and give at least one example of the following 
BASIC statements: PRINT, INPUT, LET, and END (Sections 1.5.1—1.5.4). 


1l. Describe three simple techniques for editing BASIC programs (Section 
1.6 and Appendix B). 


1.2 COMPUTER USE: A BRIEF HISTORY AND 
RATIONALE 


Electronic computers have been in use since the late 1940s. In the period from 
1948 to 1965, they were used primarily for what their name implies: computing 
or “number crunching” as it is sometimes called. Starting about the mid-sixties, 
however, educators began experimenting with applications of computers in the 
instructional process that involved more than just computing. 

In the decade following, this use expanded, and, just as computers have 
become ingrained in our society, instructional computing is becoming common- 
place in our schools. (These points may be emphasized by the fact that since 1975 
over 1,500,000 microcomputers have been purchased, many for home or school 
use.) 

Now, it is very important to recognize that computers are not replacing teach- 
ers! The fundamental principle underlying the use of computers—regardless of 
the profession using them—is that they are incredibly fast and accurate tools that 
allow people to do certain activities in a manner not previously possible. Thus, 
the use of computers in instruction is basically that of supplemental applications. 
Computers allow teachers and students to do certain educational processes faster, 
with greater accuracy, and in a manner not possible before they came on the 
scene. 

Computer programs can be very helpful in providing patient, routine drill 
on fundamental concepts, in generating and grading tests in a given discipline, 
and in many other applications. In any of these cases, the most effective programs 
are those designed by teachers—the professionals in the field who are aware of 
what is to be taught and how to teach it. As yet, there is no computer program 
that can lead an intelligent and sensitive discussion on any given abstract concept. 
There are no teachers out of a job because they have been replaced by a computer! 

6 That is something worth remembering. 
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1.3 ACCESS TO COMPUTERS 


А computer is an extremely fast and accurate processor of data. In the simplest 
sense, most common computer systems may be viewed as four units connected 
electronically: 


1. An input unit (such as a computer terminal keyboard) through which 
data is entered. 


2. А processor unit, which stores the data input and processes it electronically. 


3. An output unit (such as a computer terminal screen or printer) which 
shows the results of processing the data input. 


4. A data storage/retrieval unit (such as a disk drive) which stores data on, 
and retrieves data from, some magnetic medium (such as a floppy disk). 


Figure 1.1 shows these units in block form. 


Until the late 1960s, the primary means of access involved punching program 
statements, data, and commands onto computer cards. This “batch” of cards was 
read (input) by a card reader and eventually a printout (output) of the program 
"run" was retrieved. This type of access is commonly referred to as batch access 
or batch processing. 

Since the early 1970s, there has been a very strong trend toward accessing 
computers via computer terminals. In the simplest sense, a terminal consists of 
a keyboard, similar to that of a typewriter, for input of statements, data, com- 
mands, and so forth, with output displayed either on a cathode ray tube (CRT) 
screen or paper (hardcopy) at the terminal. This type of access is known as 
interactive (a user is interacting directly with the computer or a program) or 
timesharing (there may be literally scores of terminals in remote locations "shar- 


Input unit 
(keyboard) 


Processor 


Figure 1.1 
Components of a 
computer system. 


Output unit 
(TV monitor) 


Output unit 
(printer) 


Storage unit 
(disk drive) 
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Figure 1.2 

APPLE II system: 
keyboard, monitor, 
thermal printer, and 
disk drives. 
(Courtesy of Apple 
Computer, Inc.) 


ing the time" of one computer). In these cases, the terminal is connected to the 
computer via standard telephone lines. 

Microcomputers are an exception to this. Here, the computer, terminal, dis- 
play, and other components are usually provided as a unit small enough to fit 
on a desk top (Figure 1.2). There are no telephone connections or sharing of 
computer time. This makes the unit more portable, less prone to equipment 
failure, less expensive, and, consequently, well suited to the classroom. 

For our use here, only microcomputers are discussed. The examples and 
assignments in the text assume that the reader has access to an APPLE II micro- 
computer with AppleSoft BASIC, one floppy disk drive, a video monitor or tele- 

8 vision, and at least 48K of random access memory (RAM). 
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It is very important that the reader, particularly the reader new to micro- 
computers, become familiar with the processes needed to access (use) the system. 
This first involves gaining confidence in booting up the system. Refer to Appendix 
А for a step-by-step procedure to accomplish this. 


1.4 A BIT ABOUT BASIC BEFORE BEGINNING 


There are a few general points about BASIC that should be made early. Consider 
these as some of the "rules of the game" to follow for BASIC. 


1.4.1 Statements 


A BASIC program is composed of BASIC statements. These are words (often 
verbs), such as PRINT, INPUT, and so on, that make some degree of sense to both 
a user and the computer. (Of course, the computer has been programmed by 
people to “understand” these words.) 

BASIC statements are always numbered, generally by tens (10, 20, 30, etc.). 
They could be numbered 1, 2, 3, and so on, but no additional statements could 
be inserted into the program, say, between statements numbered 1 and 2. State- 
ments can be inserted between lines numbered 10 and 20 (11, 12, etc.), and so 
it is possible to add as many as 9 lines (statements) between 10 and 20. Thus, 
the numbering convention is usually in increments of ten. 


1.4.2 Commands 


BASIC commands issue specific information to the computer system about 
the program. For example, the command NEW instructs the system to prepare 
for a new BASIC program to be entered at the terminal by "erasing" any program 
statements that are currently in the system's memory. The command LIST will 
produce a listing of the BASIC statements comprising the program in memory. 

The command RUN executes (RUNs) the BASIC statements in their increas- 
ing numerical sequence unless one of those statements transfers the execution 
to another part of the program. (This is called branching and will be discussed 
later.) The command SAVE (filename) instructs the system to save the program 
in memory under the name (filename). The program is stored on a floppy diskette 
placed in the disk drive. (The (filename) may be just about any name the user 
wishes, but short, descriptive names should be considered.) 


1.4.3 Variables 


Nearly all BASIC programs described in this text will include values that may 
vary as the program is executed (RUN). These values, which are called variables, 
could be students' names, test scores, responses for correct or incorrect answers, 
and so forth. 9 
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In BASIC, a variable may be represented (named) by any letter of the alpha- 
bet (A-Z) or any letter and any number up to 9 (А1,М8,У/3,79, etc.). The APPLE 
microcomputer will allow variables to have even longer names that are more 
descriptive of what they represent: FIRSTTEST, NUMBEROK, AVERAGE, and so 
on. However, only the first two letters are used internally by the APPLE system. 
Consequently, AVERAGE and AVENUE represent the same variable; so care must 
be used in naming the variables in a program. 

For our purposes, there are two types of variables: 


1. Numeric. The value of the variable is always numeric: 1.0, 2, 110.5, 
— 3.1365, and so on. 


2. String (or alphanumeric). The value of the variable may be alphabetic 
characters or numbers or a mixture of both. This value is always enclosed 
in quotation marks: “ABCDEF”, "CS395T", "JOHN JONES”, "NOW IS 
THE TIME”, and so on. 


A dollar sign ($) is added to the name of the string variable to distinguish it 
from a numeric variable. N$, A1$, Z9$, and FIRSTNAMES all represent string 
variable names, while N, A1, Z9, and FIRSTTEST all represent numeric variable 
names. 


Examples: A = 123 


(The numeric variable named A has a value of 123.) 
A$ = "ABC" 


(The string variable named A$ has a value of ABC.) 


1.4.4 Commas (,) and Semicolons (;) 


Commas and semicolons have specific uses in BASIC. They can be used in 
the normal fashion as punctuation marks, or they can be used to instruct the 
system to display information in special ways. For example, every so often in a 
BASIC program there may be a need to have information printed in columns. 
Suppose a list of student names, test score averages, and final numeric grades 
were to be displayed (printed). Assume the values are stored in the variables N$, 
T, and F, respectively. The BASIC statement 


PRINT М%ТЫӘҒ 


would display this information in columns 16 spaces apart from the start of the 
first value to the start of the second value, and so on. Here, the comma acts as 
an automatic tabulator. Thus, any line can have “fields” of display starting at 
column 1, column 17, and column 33. This can be useful when certain types of 
information are to be displayed. (See, for example, Sections 1.5.1 and 1.5.3.) 
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If one wished the above information to be close packed (printed without any 
separating spaces), the semicolon would be used in place of the comma. In 
essence, then, the comma, when not used as a punctuation mark, instructs the 
system to tab 16 spaces before printing; similarly, the semicolon instructs the 
system to not skip any spaces before printing. 

These and other examples of their use will be shown shortly, but for now 
be aware that the comma and semicolon can have special meanings when not 
used as punctuation. 


1.5 BASIC STATEMENTS FOR THIS CHAPTER 


1.5.1 Statement PRINT 


Purpose Displays (PRINTs) information at the computer terminal. This 
information may be text, numeric variable values or string (alphanumeric) var- 
iable values (see Section 1.5.3). When text is to be displayed, it must be enclosed 
in quotation marks (^) in the PRINT statement. 


Example: PRINT "HELLO. WHAT’S YOUR FIRST NAME" 
Result of execution: HELLO. NHAT'S YOUR FIRST NAME 


Example: 10 А - 123 
20 А% - "АВС" 
30 PRINT ñ ñ$ 


Result of execution: 123 ABC 
«— ——16 spaces — 


1.5.2 Statement INPUT 


Purpose Allows numeric or alphanumeric information to be entered 
(INPUT) into a BASIC program during its execution. The information is entered 
through the terminal keyboard and is assigned to a variable specified by the 
program author. The variable will have the assigned value until changed by 
another INPUT or LET statement for that variable. 


Examples: INPUT N (for numeric information) 
INPUT Nt (for alphanumeric information) 


Note: Most BASIC systems automatically display a question mark (?) when 
the INPUT statement is executed. In computer terms, the question mark is called 
the input indicator or prompt. Program execution is stopped until the RETURN 
key is depressed. Also, note that the use of quotes, discussed earlier for string 
variables in Section 1.4.3, is not required when string information is INPUT. Тһе 
dollar sign instructs the system that апу input will be assigned as a string variable. 
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Program example: 10 PRINT "HELLO. WHAT’S YOUR FIRST NAME" 
20 INPUT N$ 
30 PRINT N$5" IS А МІСЕ NAME." 
40 END 


Result of execution: HELLO» WHAT’S YOUR FIRST NAME 
?SAMMY (SAMMY is typed and the RETURN key 
depressed.) 
SAMMY IS А NICE МАМЕ. 


1.5.3 Statement LET 


Purpose Assigns values to variables. This action may be “direct,” as in 

LET X = 20 (X would have a value of 20), or it may be “indirect,” as in LET X 

— (2*Y)/3 (X would have a value equal to the result of dividing 3 into the product 

of 2 times the value of Y). The “*” is the symbol (character) used for multipli- 

cation; the “/” is the symbol used for division. It may also be used to assign 
alphanumeric values, as in LET A$ — "HERE'S THE ANSWER!" 

Note: In most BASIC systems, the term LET is optional; so the statement X 

— 20 is equivalent to LET X — 20. Also, note here that assignment to a string 

variable requires the use of quotes. The string content must be enclosed in quotes. 


Example: 10 LET МАМЕ% - "JOHN JONES" 
20 LET TEST1 = 100 


30 FINALTEST - 89 (Note: LET is omitted.) 
40 PRINT "STUDENT" "TEST 1", "FINAL" 
50 PRINT "eese Bia PR ui iacit Bar M ance n 
GO PRINT NAME$,»TEST1 »FINALTEST 
70 END 
Result of execution: STUDENT TEST 1 FINAL 
JOHN JONES 100 89 


What would happen if the commas in statements 40—60 were replaced 
by semicolons? (Note: Answers to this and other questions found within the 
text are supplied under their respective chapter and section numbers in Ap- 
pendix C.) 


1.5.4 Statement END 


Purpose Ends program execution. On many systems, it is not required. 
However, in the interest of good programming practice, it should be the last 
statement in any program. 


1.5.5 PROGRAM 1: Years-to-Days Conversion 


The statements discussed thus far can be combined to make a program. But 
what is the program to do? Some stage of program design must be defined that 
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illustrates the use of these statements. Arbitrarily, then, the program is designed 
to: 


~ 


Ask for a person’s name (PRINT). 

Store the name entered in a string variable (INPUT). 
Greet that person with the name entered (PRINT). 

Skip a line so that the screen is not too crowded (PRINT). 
Ask for the person’s age in years (PRINT). 

Store the age entered in a numeric variable (INPUT). 
Convert the age in years to the age in days (LET). 

Display this age in days (PRINT). 

End the program (END). 


5: SN Өй к= red 


Note: The sample interaction shows a “session” at a microcomputer. It includes 
creating a NEW program, entering the program statements, SAVEing the pro- 
gram, RUNning the program, LISTing the program, LISTing a single statement 
(LIST 40), LISTing statements 10 to 30 inclusive (LIST 10,30), and LISTing a 
nonexistent statement (LIST 120). 

АП this is shown in the sample as it would appear on an APPLE system 
monitor, which limits each display line to 40 characters. Any remaining char- 
acters on a given line “wrap around” and are shown оп the next line displayed. 
Although this makes absolutely no difference to the APPLE system (a line may 
contain as many as 255 characters), it is confusing when read by a person. To 
clarify this, another listing of PROGRAM 1 is shown below the actual session. 
This and all listings of subsequent programs in this text are in an 80-column 
format. Be aware that the listings will look different when viewed on the monitor 
display. 


Refer to the listing and run of PROGRAM 1. Statement 10 displays a greeting and 
asks for user's first name. 
JNEH Statement 20 automatically displays a 
“?” and waits for input. Whatever is 
110 PRINT "HELLO. WHAT’S YOUR FIRST NAME" typed is assigned ip NS wien RETURN 


is depressed. 
120 INPUT NS Statement 30 displays "HOWDY, ” 


(Why the blank space?) and value of 
130 PRINT "НОИОҮ» "3N$ NS. 


140 PRINT Statement 40 prints a blank line, and 
statement 50 requests the user’s age in 
150 PRINT "TELL ME., WHAT IS YOUR AGE IN YEARS"; years. 
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160 INPUT А 

170 D=A*365 

180 PRINT "HELL; "3N$;";, YOU HAVE BEEN BREATHING" 
190 PRINT "FOR AT LEAST "505" DAYS!" 


1100 PRINT;"BYE-BYE: "N$ 


1110 END 


ISAVE PROGRAM 1 
IRUN 


HELLO, 


?БАММҮ 
HOWDY» SAMMY 


TELL ME.. ИНАТ IS YOUR AGE IN YEARS?21 


WELL» SAMMY» YOU HAVE BEEN BREATHING 


WHAT’S YOUR FIRST NAME 


FOR AT LEAST 7665 DAYS! 


BYE-BYE, SAMMY 


lLIST 

10 PRINT "HELLO. WHAT'S YOUR FIR 
ST NAME" 

20  INPUT N$ 

30 PRINT "HOWDY, "№ 

40 PRINT 

50 PRINT "TELL МЕ, , WHAT IS YOUR 
AGE IN YEARS"; 

60 INPUT A 

70 D = A * 365 

80 PRINT "HELL; "3N$3", YOU HAVE 
BEEN BREATHING" 

80 PRINT "FOR AT LEAST "+05" DAY 
S!" 

100 PRINT »"ВҮЕ-ВҮЕ, "3N$ 

110 END 

JlLIST 40 

40 PRINT 


ILIST 10,30 


10 


20 
30 


PRINT "HELLO. WHAT’S YOUR FIR 
ST NAME" 

INPUT N$ 

PRINT "HOHDY» "SNS 


Statement 60 automatically displays a 
“2” and waits until some number is 
typed and RETURN is depressed. This 
number is assigned to variable A. 


Statement 70 assigns a value to D equal 
to the value of A times 365 (converting 
years to days). 


Statements 80 and 90 display values of 
N$ and D, along with appropriate text. 


Statement 100 skips 16 spaces and 
displays a farewell. 


Statement 110 ends program execution. 
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JLIST 120 

1 

JLIST 

10 PRINT "HELLO. WHAT’S YOUR FIRST МАМЕ" 

20  INPUT N$ 

30 PRINT "HOWDY, "iN$ 

40 PRINT 

50 PRINT "TELL ME...HHAT IS YOUR AGE IN YEARS"; 
80 INPUT А 

70 D А * 365 

BO PRINT "HELL, "№5", YOU HAVE BEEN BREATHING" 
90 PRINT "FOR AT LEAST "505" DAYS!" 

100 PRINT »"ВҮЕ-ВҮЕ, "№ 

110 END 
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1.6 EDITING BASIC PROGRAMS 


Most BASIC systems have some means by which programs may be edited. For 
example, a PRINT statement with a misspelled word or typographical error may 
be corrected by editing. Three simple editing techniques are: 


ne 


Left arrow key ( <- ). A typographical error may be corrected by back- 
spacing the cursor over the error, entering the correction, and then com- 
pleting the line being typed. This type of editing can be used only before 
the RETURN key is depressed for the line being entered. 


Retyping the statement. A statement may be replaced by simply retyping 
the line number followed by the correct statement. 


Deleting lines. A statement may be deleted entirely by typing the line 
number only and then depressing the RETURN key. Several lines may 
be deleted by typing DEL, followed by the beginning and ending line 
numbers to be deleted. For example, the command: 


DEL 20,50 


would delete line numbers 20-50, inclusive. 


Although these are only three simple techniques for editing, they will get 
you started and can be extremely useful. As you become more proficient and at 
ease with the system, you should become familiar with the more advanced edit- 
ing techniques described in Appendix B (section B.9, page 221). 
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1.7 POSERS AND PROBLEMS 


(Note: Many of the ‘‘Posers and Problems" given in this book may be entered 
and run as programs. Where possible, this should be done, since it will be of 
help in arriving at the solutions. As a last resort, or to check your work, refer to 
Appendix C. A * indicates a more difficult problem.) 


I. 


Correct any errors found in the following BASIC statements: 


10 PRIMT "HELLO 

20 PRIMT WHAT’S YOUR HEIGHT IN INCHES" 
30 INPUT 

40 М = 2.54 ж 

50 PRINT YOU ARE М CENTIMETERS TALL! 
60 FINISH 


What is the value of X in each of the following if Y — 6? 
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(2*Y)/3 

X 
(2*Y)/(3*Y) 
(ҮжҮ) /(Үж2) 


>x >x >x >x > 
"on n n d 


What is the purpose of the semicolon in statements 30, 80, and 90 of 
PROGRAM 1? What would substituting a comma for the semicolon 
produce? What is the purpose of the comma in statement 100? 


Note the different positions of the two question marks in the sample 
RUN of PROGRAM 1. What caused the difference? (Hint: Carefully 
examine statements 10 and 50.) 


Modify PROGRAM 1 to output the user's age in “heartbeats” (use Н 
as the variable), assuming a pulse rate of 72 beats per minute (and 60 
minutes per hour, 24 hours per day). 


What would result if the following statements were executed? 


"NAME" 
"SCORE" 
30 C$ - "AUERAGE" 
ДО PRINT А$ ,В$% ,С% 
50 END 


N 

o 

о 

ж 
"on 
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7. What would result if the following statements were executed? (Assume 


10. 


you input your own name and weight.) 


10 PRINT "FIRST NAME"; 

20 INPUT N$ 

30 PRINT "HEIGHT IN POUNDS"; 

40 INPUT P 

50 К = P/2.2 

60 Z = Р * 16 

70 PRINT+"WOWs "SNS5"E" 

80 PRINT "THAT'S ONLY "К?" KILOGRAMS» BUT» СЕЕ ," 
90 PRINT+"IT’S "323" OUNCES!" 

100 END 


Write a program that converts a temperature in Celsius to a temperature 
in Fahrenheit. The user should enter the temperature for conversion 
from the keyboard. Hint: The formula for conversion is F = (C * 9/5) 
+ 32. 


Write a program that converts two variables, cups and ounces, into 
ounces. For example, 2 cups and 3 ounces equal 19 ounces. 


Write a program that inputs two string variables, first name and last 
name, and prints out a salutation of your choice using the person’s full 
name. 
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"Even if you're on the right track, you'll get run over 
if you just sit there." 
--УҮШ Rogers 


"Mans mind stretched to a new idea never goes back to 
its original dimensions." 
—Oliver Wendell Holmes 


Think About This ( for Fun) 


What do you sit on, sleep on, and brush your teeth with? 


Think About This (Seriously) 


18 Can computer programs teach? 


Chapter 


Now Tell 1t Where To Go 
and What To Do with It 


2.1 OBJECTIVES 


For the successful completion of this chapter, you should be able to: 


г 


L 


Define the purpose and give at least one example of each of the BASIC 
statements REM, GOTO, IF-THEN, and ON-GOTO (Sections 2.2.1—2.2.4). 


Define the purpose and give at least one example of each of the BASIC 
functions RND(1) and INT (Section 2.3). 


Define the purpose ofthe BASIC commands LOAD and DELETE (Section 
2.4). 


Alone and unafraid, boot up a microcomputer system (Appendix A). 


Design, enter, and RUN a BASIC program that includes the statements 
discussed in Chapter 1. 
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2.2 BASIC STATEMENTS FOR THIS CHAPTER 


2.2.1 Statement REM 


Purpose Used as a REMinder or REMark to document the listing of 
BASIC programs. That is, REM gives a means by which internal notes may be 
made in the program listing. These notes will provide information about the 
program, such as which variables are used and their purpose (commonly called 
a dictionary of variables), and will identify special program routines or strategies, 
separating the program into segments so that the program listing is easy to read. 
The REM statement is not executed during a program run; thus, the only time 
these are displayed is after a LIST command. 


Example: REM THE VARIABLE ʻA’ IS THE АСЕ IN YEARS 


2.2.2 Statement GOTO 


Purpose Unconditionally transfers program execution to the specified 
statement number. 


Example: GOTO 100 


2.2.3 Statement IF-THEN 


Purpose Conditionally transfers program execution to the specified 
statement number if, and only if, the defined variable relationship is true. 


Examples: IF X = 1 THEN 100 
(Transfer to statement 100 will occur if X is equal to 1.) 
IF Y <> 2 THEN 100 


(Transfer to statement 100 will occur if the value of Y is not equal to the value 
of Z.) 


IF A <= 2 THEN 100 
(Transfer to statement 100 will occur if the value of A is less than or equal to 2.) 
IF A >= 2 THEN 100 


(Transfer to statement 100 will occur if the value of A is greater than or equal to 
2.) 


IF А% = "YES" THEN 100 


(Transfer to statement 100 will occur if the value of A$ is equal to the character 
string YES.) 
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2.2.4 Statement ON-GOTO 


Purpose Transfers program execution to a specified statement number 
based on the truncated value of a variable or numerical relationship. 


Example: ON X GOTO 100»300»600 


(Transfer to statement 100 will occur if the truncated value of X is 1; transfer to 
statement 300 will occur if this value is 2; transfer to statement 600 will occur 
if this value is 3. If X is less than 1 or greater than 3 in the example above, 
execution continues with the first statement following the ON-GOTO.) 

This example of the ON-GOTO is equivalent to the following three IF-THEN 
statements: 


IF X = 1 THEN 100 
IF X = 2 THEN 300 
IF X = 3 THEN 800 


By using the ON-GOTO, the same instructions can be given to the system by just 
one statement: 


ON X GOTO 100»300»600 


Note: Truncate is a computer term that means “reduce a number with а 
decimal fraction to its whole-number value." The truncated values of 3.0001 
and 3.9999 are both equal to 3. The truncated values of — 3.0001 and — 3.9999 
are both equal to —4 (since the decimal number is reduced). 


2.3 SOME VERY BASIC FUNCTIONS 


Functions in BASIC are essentially mathematical routines that either come with 
the computer system (as a library of routines or functions) or are defined by the 
user. Once a function has been defined, it may be used over and over again 
without the bother of writing out the entire routine. 

Two of the most common library functions that are used in instructional 
computing applications are RND(1) and INT. When executed, the RND(1) func- 
tion automatically gives some random numeric value between 0.0 and 0.99999999, 
The INT function truncates any number with a decimal fraction (called a real 
number) to a whole number (called an integer). 

By using a combination of these functions in BASIC statements, it is possible 
to generate random numbers within any range desired. This may be used to 
generate different values for questions containing numbers, randomly selecting 
questions by number from a “bank” of questions, randomly branching to spec- 
ified line numbers using ON-GOTO statements, and so on. The following illus- 
tration shows how this combination may be used to generate numbers in the 
range of 1-10, inclusive. 
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Suppose a BASIC statement looked like this: 


X = INT(10 ж RND(1) + 1) 


and suppose RND(1) comes up with a random value of 0.58. BASIC is set up so 
that numerical operations enclosed in parentheses are performed first. Thus, the 
steps the system follows in computing the value of X would be: 


1. 10*0.58 - 5.8 
2. 5.8 + 1 = 6.8 
3. INT of 6.8 = 6 
Thus, X will have a value of 6 in this example. 
What would be the value of X if RND(1) = 0.99999999? What would be 


the value of X if RND(1) = 0.01? What is the range of random numbers that 
could result from the statement: 


X = INT(10 * RND(1) + 3) 


What would be the statement that would generate random numbers in the range 
1.00—100.00, inclusive? (Hint: Note the two decimal places. How is an integer 
value changed to a real value containing two decimal places? Answer: By dividing 
the integer by 100.) What statement would produce random numbers in the 
range 5—95, inclusive? 


2.4 MODIFICATION OF EXISTING PROGRAMS 


In Chapter 1, Problem 5 asked the reader to modify PROGRAM 1 to output 
(PRINT) the number of heartbeats equivalent to a user's age in years, assuming 
there were 72 beats per minute. To do this, it is necessary to: 

1. Retrieve PROGRAM 1 from the disk. 

2. Make the modifications. 

3. Save the modified version of PROGRAM 1 as PROGRAM 2. 
[By saving the modified program as PROGRAM 2, both the old version (PRO- 
GRAM 1) and the new version (PROGRAM 2) are on the diskette. If only the 


new version is desired, the same name (PROGRAM 1, in this case) should be 
used.] 


2.4.1 PROGRAM 2: Adding Heartbeats 


Recall that PROGRAM 1 was created by first typing NEW to erase any pro- 
gram in memory and then entering each line, statement by statement. RUN was 
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typed to test the program, and it was SAVEd on the floppy diskette. Once a 
program has been SAVEd, it may be retrieved for use or modifications by the 


command LOAD (filename). 


If any changes are made that are to be permanent in the program, the com- 
mand SAVE (filename) must be used. This is illustrated by the listing and sample 
run of PROGRAM 2. If a SAVEd program is no longer needed, it may be deleted 
by the command DELETE. Thus, the command for erasing any program is DELETE 
(filename). But be careful! Once a program is deleted, it is gone, gone, gone! 


Run from disk and refer to the listing and run of PROGRAM 2. 


11040 PROGRAM 1 
1115Т 


10 PRINT "HELLO. WHAT’S YOUR FIRST NAME" 

20  INPUT N$ 

30 PRINT "HOWDY, "N$ 

40 PRINT 

50 PRINT "TELL МЕ...ИНАТ IS YOUR AGE IN YEARS"; 
60 INPUT A 

70 D = A * 365 

80 PRINT "HELL, "3N$3:", YOU HAVE BEEN BREATHING" 
80 PRINT "FOR AT LEAST "505" DAYS!" 

100 PRINT ."ВҮЕ-ВҮЕ, "N$ 

110 END 


192 REM =============== 
193 REM MODIFICATIONS ADDED BELOM 

194 REM =============== 

196 H=D*24*60*72 

187 PRINT "AND IN HEARTBEATS: THAT'S" 
198 PRINT "ABOUT "$Hi" TOTAL THROBS!" 
199 PRINT " WOW, "S5N$3;"I" 


170 D=A*365.25 


IRUN 

HELLO. WHAT’S YOUR FIRST NAME 
?SAMMY 

HOWDY» SAMMY 


Statements 92—99 are entered. 
(Statement 96 converts age in days, D, 
to heartbeats, H, since there are 24 
hours per day, 60 minutes per hour, and 
72 heartbeats per minute.) 


Statements 97-99 display the value of 
variable H, along with appropriate text. 


Statement 70 is reentered, giving a more 
accurate value for days per year (365.25 
versus 365). 


The program is then RUN. 
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TELL ME... WHAT IS YOUR AGE ІМ YEARS?43.5 
WELL» SAMMY» YOU HAVE BEEN BREATHING 
FOR AT LEAST 15888.375 DAYS! 
AND IN HEARTBEATS» THAT’S 
ABOUT 1,64730672Е+09 TOTAL THROBS! 
WOW, SAMMY! 
BYE-BYE, SAMMY 


15АУЕ PROGRAM 2 The program is SAVEd as PROGRAM 2. 
JLIST A new LIST is requested. 


10 PRINT “HELLO. HHAT'S YOUR FIRST NAME" 
20  INPUT N$ 
30 PRINT "НОМОҮ , "3N$ 


40 PRINT 
50 PRINT "TELL МЕ, ,, ИНАТ IS YOUR AGE IN YEARS" i 
B0 ІМРОТ А 


70 D = A * 365,25 
80 PRINT "HELL, "3N$;", YOU HAVE BEEN BREATHING" 
90 PRINT "FOR AT LEAST "505" DAYS!" 


92 REM ========s======= 
93 REM MODIFICATIONS ADDED BELOM 
94 REM =====s========== 


96 Н = D * 24 * 60 * 72 
97 PRINT "AND IN HEARTBEATS» THAT'S" 
98 PRINT "ABOUT "Н?" TOTAL THROBS!" 


99 PRINT " WOW, "№ "1" 
100 PRINT ,"ВҮЕ-ВҮЕ, "3N$ 
110 END 


1 


Іп summary, we һауе the following commands: 


Command Example Action 

NEW NEW Clears memory of 
statements. 

RUN RUN Executes statements in 
memory. 

RUN (filename) RUN PROGRAM 1 LOADSs program (filename) 
from the disk and RUNS it. 

LOAD (filename) LOAD PROGRAM 1 LOADSs program (filename) 


from the disk to memory. 
LIST LIST LISTs the entire program. 
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LIST nn LIST 10 LISTs line nn. 

LIST nn,mm LIST 10,100 LISTs lines nn-mm, 
inclusive. 

SAVE (filename) SAVE PROGRAM 1 SAVEs current program іп 


memory on the disk as 
program (filename). 


DEL nn,mm DEL 10,100 DELetes lines nn—mm, 
inclusive. 
DELETE (filename) DELETE PROGRAM 1 DELETEs program 


(filename) from the disk. 


Note: In the RUN of the program, the value of H is expressed as 
1.64730672E + 09. This is the method in which the system displays a value of 
1,647,306,720. It is also the system's way of expressing scientific notation, that is, 
1.64730672 x 10? . This amounts to one billion, six hundred forty-seven million, 
three hundred and six thousand, seven hundred and twenty heartbeats! Tho' 
easily broken, 'tis still a powerful muscle! 


2.5 INCORPORATING THE NEW STATEMENTS 


The content design of any BASIC program is at the discretion of its author (pro- 
grammer). The program can be as simple or as complex as the author desires. 
For example, BASIC may be used in trivial Fahrenheit-to-Celsius temperature 
conversions or in sophisticated modeling of population dynamics. The point is 
that a program does only what an author has designed it to do—nothing more 
or less. However, for any program, regardless of its simplicity or complexity, the 
author must first outline the design and “flow” of the program. On that note, 
the following program (PROGRAM 3) is designed only to illustrate a use of the 
statements discussed in this chapter. 


2.5.1 PROGRAM 3: Appropriate Responses 


The program will ask a question and give only one chance for a correct 
answer. “Appropriate” responses will be made for either a correct or incorrect 
answer. The program will then ask a final question related to age. The user will 
be informed if the answer is too low or too high. For answers that are too high, 
an additional comment will be randomly selected from three choices. The ques- 
tion will be repeated until the correct answer is given. 

This is a general outline of what the program is designed to do. The BASIC 
statements needed to accomplish this are shown in the program listing. (Now, 
try to relax when you see the "long" listing of the program. Think about what 
each statement instructs the system to do and mentally follow its execution.) 
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RUN from disk and refer to the listing and run of PROGRAM 3. 


JLOAD PROGRAM 3 


JLIST 

10 REM PROGRAM 3 

20 REM r=z===z=========== 

30 REM ASK SOME QUESTION 

40 REM GET AN ANSHER AND 

50 REM CHECK FOR ACCURACY 

60 REM uum S P S s mmm 

70 PRINT "HHAT STATE FOLLOMS ALASKA" 

80 PRINT "IN TOTAL LAND AREA"; 

90 INPUT R$ 

100 IF R$ = "TEXAS" THEN 130 

110 PRINT , "МОРЕ, IT'S TEXAS!" 

120 GOTO 140 

130 PRINT ТАВ( 3)3"YEEE-HAAA! YOUR ANSWER 
IS CORRECT!" 

140 PRINT 

150 REM eye eye ESI 

160 REM ASK ANOTHER QUESTION 

170 REM AND CHECK FOR HIGH OR 

180 REM LOW ANSWER INPUT 

190 REM LX X E Y E I IL E S I E 

200 PRINT "WHAT WAS THE PERPETUAL AGE" 

210 PRINT "OF THE LATE JACK BENNY"; 

220 INPUT R 

230 IF В < 39 THEN 290 

240 IF R > 39 THEN 320 

250 REM ---ТНЕМ INPUT EQUALS 39=== 

260 PRINT 

270 PRINT "DIDN’T LOOK ІТ, DID HE..." 

280 GOTO 490 

290 PRINT "ТОО LOW..." 

300 REM ===REPEAT THE QUESTION=== 

310 GOTO 140 

320 PRINT »"Т00 HIGH..." 

330 REM zz===z=========== 

340 REM GET ñA RANDOM COMMENT FDR 

350 REM АМҮ ANSHER THAT IS HIGH 

360 REM THEN REPEAT THE QUESTION 

370 REM zz============== 

380 X = INT (3 * RND (1) + 1) 

390 ON X GOTO 400,420,440 


Statements 70 and 80 (the first executed 
statements) print the question. 


Statement 90 displays a question mark 
(note where it is displayed!), waits for 
input, and stores it in the string variable 
R$. (Note: From now on, reference to 
statements will sometimes be made by 
number only. That is, statement 100, for 
example, will simply be referred to as 
100.) 


100 checks for value of R$ equal to 
TEXAS. If so, transfer to 130 occurs. If 
not, 110 is executed, and then 120 
causes transfer to 140 (skipping 130, the 
response for the correct answer). 


140 prints a blank line. 
200 and 210 print the next question. 


220 displays a “?”; waits for input; and 
stores it in variable R. 


230 checks for R less than 39. If so, 
transfer is to 290. If not, execution 
continues to 240, which checks for R 
greater than 39. If so, transfer is to 320. 
If not, 260 and 270 are executed. (230- 
270 essentially say that if R is neither 
greater nor less than 39, then it must be 
equal to it.) 


290 (from 230, if R< 39) lets user know 
they are too low, and 310 returns to the 
question (140). 


320 (from 240, if R>39) lets user know 
they are too high. 


380 gives a random value for X between 
3 and 1, inclusive. 


390 transfers execution to 400 if X = 1, 
to 420 if X = 2, or to 440 if X = 3. 
These statements print an additional 
comment and return the execution to 
140 (by 410, 430, or 450). 


400 PRINT "NOM THAT IS OLD!" 
410 GOTO 140 


420 PRINT "ARE YOU TRYING TO BE CRUEL?" 


430 GOTO 140 


440 PRINT "HAUE YOU NO SYMPATHY?" 


450 GOTO 140 

460 REM zzzzzzzzzzz22zz 

470 REM END THE PROGRAM 

480 REM  ssssesszsszszszz2x 

490 PRINT 

500 PRINT 

510 PRINT »"ВҮЕ-ВҮЕ» FRIENDS..." 
520 END 


JRUN 

WHAT STATE FOLLOWS ALASKA 

IN TOTAL LAND AREA?CALIFORNIA 
МОРЕ» IT'S TEXAS! 


WHAT WAS THE PERPETUAL AGE 
OF THE LATE JACK BENNY?33 
TOO LOW... 


WHAT WAS THE PERPETUAL AGE 
OF THE LATE JACK BENNY?69 

TOO HIGH... 
HAVE YOU NO SYMPATHY? 


WHAT WAS THE PERPETUAL AGE 
OF THE LATE JACK BENNY?66 

TOO HIGH... 
NOW THAT IS OLD! 


WHAT WAS THE PERPETUAL AGE 
OF THE LATE JACK ВЕММҮ?55 

TOO HIGH. +: 
NOW THAT IS OLD! 


WHAT WAS THE PERPETUAL AGE 
OF THE LATE JACK BENNY?39 


DIDN'T LOOK ІТ, DID HE... 


BYE-BYE» FRIENDS... 


Now Tell It Where To Go and What Тр Do with It 


If R is neither less than nor greater than 
39 (see statements 230—270), 280 
transfers execution to 490 which prints 
а blank line, as does 500. A farewell is 
printed by 510 and the program ends at 
520. 
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JRUN 


WHAT STATE FOLLOWS ALASKA 
IN TOTAL LAND AREA?TEXAS 
YEEE-HAAA! YOUR ANSWER IS CORRECT! 


WHAT WAS THE PERPETUAL AGE 
OF THE LATE JACK BENNY?39 


DIDN'T LOOK ІТ, DID НЕ... 


BYE-BYE» FRIENDS... 


2.6 POSERS AND PROBLEMS 


T. 
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What is the difference between the variables R and R$ in PRO- 
GRAM 3? 


What would be the result if statement 390 in PROGRAM 3 read ON X 
GOTO 440,400,420? 


Modify statements 400, 420, and 440 in PROGRAM 3 to give comments 
of your choosing. 


What should be done to PROGRAM 3 so that it would ask for your age 
instead of Jack Benny's? 


What should be done to PROGRAM 3 in order to select a random 
comment from five choices instead of three? 


What changes should be made to PROGRAM 3 in order to ask for the 
third largest state by land area instead of the second? 


How should PROGRAM 3 be modified to ask for the user's first name 
at the start of the program and then refer to them by name when “ВҮЕ- 
BYE..." is executed in statement 510? 


Add some КЕМ statements to PROGRAM 1 so that the variables are 
made clearer to someone looking at the listing of the program for the 
first time. 


Write a statement that will randomly give a value for variable X that is 
between 100 and 25, inclusive. 


10. 


11. 


12. 


13. 
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What is the range of numbers that could randomly be generated by the 
statement: 


X = INT(25 ж RND(1) + 5) 


Write a program that asks for the user's height in inches and then prints 
“TALL” if the user is over six feet, “SHORT” if under five feet, or 
“AVERAGE” if between five and six feet, inclusive. 


Write a program that inputs the lengths of the sides of a triangle as 
variables A, B, and C (largest side last) and determines if it is a right 
triangle. [Hint: For right triangles, C^ 2 = A ^2 + B ^ 2. The caret (^) 
is the Apple's way to "raise to the power of.")] 


Write a program that inputs a number and prints “THREE” if it is a 3, 
“SIX” if it is a 6, "NINE" if it is a 9, or "NEITHER 3, 6, nor 9” if it is 
not equal to either 3, 6, or 9. 
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"Don t put off for tomorrow what you can do today, 
because if you enjoy it today you can do it again 
tomorrow” 


—James A. Michener 
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Think About This ( for Eun) 


What is the exact opposite of not in? 


Think About This (Seriously) 


30 Is the use of computers in instruction just another “educational fad"? 


Chapter 


Take a Ride on the 
Loop- D-Loop 


3.1 OBJECTIVES 
For the successful completion of this chapter, you should be able to: 


1. Define and give at least one example of each of the BASIC statements 
HOME, DATA-READ, RESTORE, and FOR-NEXT (Sections 3.2.1—3.2.4). 


2. Enter and RUN each of the BASIC programs used as statement examples 
in this chapter. 31 
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3.2 BASIC STATEMENTS FOR THIS CHAPTER 


3.2.1 Statement HOME 


Purpose HOME clears (erases) all display and "homes" the cursor in 
the upper left corner of the TV or monitor screen. This use is particularly appro- 
priate in instructional computing since it allows information, examples, ques- 
tions, and so on, to be displayed in a frame-by-frame fashion. 


Example: HOME 


3.2.2 Statement Pair DATA-READ 


Purpose DATA allows information (numeric or string) to be stored іп 
a program for use at various stages throughout its execution. The pieces of infor- 
mation are generally referred to as data elements, with each element separated 
(delimited) by a comma. READ assigns the defined value of a data element to a 
specified variable and "moves" a data "marker" or "pointer" to the next data 
element. The data type (numeric or string) must match the variable type (numeric 
or string). For example, "ABC" cannot be assigned to a numeric variable. 
There are two important notes to be made in regard to the elements in the 
DATA statements: 


1. Never place a comma at the end of the DATA statement. The system may 
take the space character following the comma as the next data element! 


2. On the Apple system it is not actually necessary to enclose string ele- 
ments in quotation marks. However, there are certain sequences of char- 
acters that the system may misinterpret if the string is not enclosed in 
quotes. Therefore, as a safeguard, always enclose string DATA elements 
with quotation marks. It is worth the extra keystrokes required to do 
this in order to avoid any potential difficulties that may otherwise result. 


Example: 10 DATA 1»"АВС",2 


20 READ N 
30 PRINT М 
40 READ N$ 
50 PRINT N$ 
80 READ М 
70 PRINT N 
80 END 


Why did the value of the variable N change? If statement 
75 PRINT N$ 


32 were added, what would be the result of running the program again? 
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Example: 10 DATA 1»"АВС" 2, "DEF" 
20 READ М№,М№% ,N1 
30 PRINT N N$ ,№1 


40 READ N$ 
50 PRINT М1ЗМІМ% 
60 END 


Why did the value of the variable N$ change? What caused the display format 
of PRINT statements 30 and 50 to be different? 

(After mentally tracing the program execution, enter and RUN the above 
examples to check your mental interpretations.) 


3.2.3 Statement RESTORE 


Purpose Moves the data pointer to the first data element in the first 
DATA statement. 


Example: 10 X - 0 
20 DATA 15"ABC",2,"DEF" 
30 READ М№,М№ ,N1 ,N1$ 
40 PRINT М»М%,М1»М1% 
50 IF X = 2 THEN 100 
GO X = X + 1 
70 PRINT "THE VALUE ОҒ X IS "3X 
90 GOTO 30 
100 END 


Enter and RUN the above program and note what happens. Add the statement 
80 RESTORE and RUN again. Note the results. 

What is the position of the data pointer after statement 30 has been executed 
but before the RESTORE statement is added? What caused the error message in 
the first RUN? What caused the program to stop execution after the statement 
80 RESTORE was added? What would the program do if statements 50—70 were 
deleted (after 80 RESTORE was included in the program)? Think this through 
before RUNning; otherwise, remember that simultaneously depressing the CON- 
TROL and C keys (CTRL-C) will halt the execution of a “runaway” program! 

Note: On many BASIC systems, statements such as 10 X - 0 (as in the 
program above, for example) are not needed because all variables are automat- 
ically "initialized" (set) to zero. However, it is good programming practice to 
initialize variables to zero in any program. 


3.2.4 Statement Pair FOR-NEXT 


Purpose Defines the number of times (loops) a series of consecutive 
BASIC statements are to be repeated. FOR defines the variable used as a counter 
for the repeats and the lower and upper limits of the count. NEXT increases the 
variable count by 1 (or the defined STEP size) and checks to see if the upper 
limit of the FOR is exceeded. If not, execution is transferred to the statement 
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immediately following the FOR statement. If the upper limit is exceeded, exe- 
cution is transferred to the statement immediately following the NEXT statement. 

The variable names in the loop defined by a FOR-NEXT must be identical. 
Note also that the start and/or limit of the loop may be defined by variable names, 
as in FOR X - Y TO Z. 


Examples: 10 FOR X = 1 TO 10 
20 PRINT XX * X 
30 NEXT X 
40 PRINT;"THAT'S ALL..." 
50 END 


10 FOR X = 1 TO 10 STEP 2 
20 PRINT X:X*X*X 

30 PRINT;"MORE TO COME..." 
40 NEXT X 

50 РВІМТ , "ТНАТ ‘5 ALL..." 
80 END 


10 A = 10 

20 B = -10 

30 FOR C - А TO B STEP -2 
40 PRINT Cs" "35 

50 NEXT C 

80 END 


(Mentally trace the execution, and then enter and RUN each program.) 


3.3 INCORPORATING THE NEW STATEMENTS 


With the addition of the statements in this chapter, a BASIC program may be 
designed that provides more of a utility than the earlier programs. One of the 
many uses of computer programs involves searching a list of information (com- 
monly called a data base) for key elements that may be specified by a user. For 
example, data bases may be searched for financial accounts that are overdue by 
30, 60, or 90 days; address lists may be searched for ZIP codes; employee rolls 
may be searched for persons who have special deductions; and so on. The fol- 
lowing program illustrates one search technique. 


3.3.1 PROGRAM 4: Searching for a Range of Values 


The program contains a list of DATA elements representing pairs of hypo- 
thetical names and scores. This list is to be searched for scores that fall within a 
specified maximum and minimum range. A list of names and scores that are 
within this range is printed. Following this, the user is given an option to do 
another search. 
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What will this require as the program is mentally designed? In outline form, 
there must be at least: 


6. 
Z: 


a. 
b. 


с. 
d. 


Prompts to’get the maximum and minimum scores (PRINTS). 
Entry of these scores (INPUTS). 
А loop (FOR) to: 


READ the DATA. 

Check (ІЕ-ТНЕМ5) 10 see if the current score read is the last data 
element in the list and, if not, to see if it is in the maximum-minimum 
range. 

Display (PRINT) the name and score if in the range. 

Continue the search (NEXT). 


А prompt for another search option (PRINT and INPUT). 


Movement of the data pointer back to the first data element if another 
search is to be done (RESTORE), followed by repetition of the total 
process (GOTO). 


А list of names and scores in the program (DATA). 
An end to the program (PRINT and END). 


RUN from disk and refer to the listing and run of PROGRAM 4. 


11040 PROGRAM 4 
1115Т 


10 
20 
30 
40 


50 


60 


70 

80 

80 

100 
110 
120 
130 
140 
150 
160 


КЕМ 
REM 
REM 
REM 


REM 


REM 


#Z#============== Statements 10—200 give a brief 
documentation of the program, describing 
=============== its primary functions and listing 

KEY SEARCH OF 50 DR LESS DATA ELEMENT important variables and their use. 
PAIRS. 

PROGRAM SEARCHES FOR А MINIMUM-MAXIMUM 

RANGE OF SCORES, 

DATA ELEMENTS ARE IN SEQUENCE: NAME, 

SCORE, 

LAST SEQUENCE OF DATA ELEMENTS: "X" ,0 


N$ - HYPOTHETICAL NAME 

S - HYPOTHETICAL SCORE 

Mi - MAXIMUM SCORE 

M2 - MINIMUM SCORE 

I - LOOP COUNTER 

F - "FLAG" FOR FINDING AT LEAST ONE 

MATCH 35 


An Introduction to the BASIC Programming Language 


170 REM szzzzzzzzczzzzzc 
180 REM SET THE MATCH FLAG TO ZERO; CLEAR 
190 REM THE SCREEN; AND GET THE RANGE SOUGHT. 


200 REM zzzzzzszzrzzzzzzz 

210 F = 0 210 initializes variable F to zero. (F is 
220 HOME used as a “Пар” to indicate if a search 
230 PRINT "MAXIMUM SCORE"; found any match: If a match is found, F 
240 INPUT Mi is set to 1; otherwise, F remains 0.) 


250 PRINT "MINIMUM SCORE"; 
260  INPUT M2 
270 PRINT "NAMES WITH SCORES IN THE RANGE: 


220 clears the screen and HOMEs the 
cursor at line 1, column 1 on the screen. 


"3M23"-" 5M1 230—260 obtain maximum and 
280 PRINT "МАМЕ" "SCORE" minimum range of scores desired by 
290 PRINT "----","----- ы user. 
300 REM z==uuz=z=z=zxz=<======== 
310 REM DO THE SEARCH LOOP 270—290 PRINT a heading for the list. 
320 REM z=z====z=z======= 
GAO: READ Не 330 assigns I as loop counter, sets its 
350 REM ——— ОҒ DATA LIST?=== intial value to 1, and defines its upper 
360 IF N$ = "X" THEN 460 limit as 50 (i.e., the loop will execute 
370 IF S > M1 THEN 420 maximum 50 times). 
380 IF S < M2 THEN 420 
3980 PRINT N$ S 340 READs a DATA element pair from 
400 REM ===FLAG A SEARCH MATCH=== data list beginning at 560 and assigns 
410 F = 1 values read to N$ and S, respectively. 
420 NEXT I (The first time READ is executed, N$ has 
430 REM =============== a value of SUE, S equals 67. Data 
440 REM END OF CURRENT SEARCH poirtortbemomover ta ВОВ in 
Aah БЕЙ кашкан» preparation for next READ.) 
a60 ЕЕ +: THEN 480 : 360 checks value of N$. If equal to the 
470 PRINT "***NONE FOUND*** character X, execution transfers to 460. 
480 PRINT "DO YOU WISH ANOTHER SEARCH (Y OR №)"; (x is arbitrarily defined as last "name" 
480 INPUT 2% in data list. This lets program know 
500 IF 2% < > "Y" THEN 1000 when last data element pair has been 
510 RESTORE read.) 
520 GOTO 210 
530 REM =============== 370—380 check S, the score just READ, 
to see if outside max-min range (greater 
24 E — SATA LIST than МІ or less than M2). If so, 
PE йн 2222027 š в š З execution transfers to 420 where loop 
560 DATA : SUE mg , QU 155 +" JACK" ,98 ;" MARY" ,99 repeats if value (I + 1) does not exceed 
STAN" ,50 » "ROB" ,72 defined upper limit of 50. 
570 DATA "LETA",77 "ALEX" 66 › "SUSAN" ,85 "MARIA" 
:99 , "FRAN" 70 If S falls within range (neither greater 
580 DATA "BOBBIE";100,;"CHARLES" ;84 ;»"BILLY" ,66 , than MI nor less than M2), 390 PRINTS 
"MAGGIE",86 current values of N$ and S. 
580 DATA "DONNA" ›91 › "ҮАМСҮ" 77 "ТВАСҮ" ,89, 
"KAREN" ,100 , "ВОСК" ,90 410 sets Пар Е to 1, indicating a match 
600 REM ===ROOM FOR MORE DATA--- iu 


888 DATA "Хх" ,0 


1000 PRINT "*** SEARCH COMPLETED ***" 
1010 END 


LOAD PROGRAM 4 
IRUN 


[Clear screen] 


MAXIMUM SCORE?100 
MINIMUM SCORE?90 


NAMES WITH SCORES IN THE RANGE: 90-100 


NAME SCORE 
JACK 98 
MARY 99 
MARIA 99 
BOBBIE 100 
DONNA 91 
KAREN 100 
BUCK 90 


DO YOU WISH ANOTHER SEARCH (Y OR N)?Y 
[Clear screen] 
MAXIMUM SCORE?89 


MINIMUM SCORE?80 
NAMES WITH SCORES IN THE RANGE: 80-89 


NAME SCORE 
SUSAN 85 
MAGGIE 86 
TRACY 89 


DO YOU WISH ANOTHER SEARCH (Y OR N)?Y 
[Clear screen] 
MAXIMUM SCORE?79 


MINIMUM SCORE?70 
NAMES WITH SCORES IN THE RANGE: 70-79 


NAME SCORE 
ROB 72 
LETA 77 
FRAN 70 
YANCY 77 


DO YOU WISH ANOTHER SEARCH (Y OR N)?Y 
[Clear screen] 


MAXIMUM SCORE?69 
MINIMUM SCORE?60 
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420 repeats loop if not yet occurred 50 
times. 


460 can be executed from one of two 
sources: 360, if last data element has 
been READ; or 420, if NEXT 1 exceeds 
limit defined in statement 330. 


460 checks value of E. If F — 1 
(indicating a match), transfer is to 480. 
If F# 1, no match was found. 470 then 
PRINTS that message. 


480—500 give option for another search. 
If INPUT value for Z$ not equal to Y (for 
Yes), transfer is to 1000 and program 
ENDs. Otherwise, 510 RESTOREs data 
pointer to first data element, and 520 
transfers execution back to 210 for 
another search. 
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NAMES МІТН SCORES IN THE RANGE: 80-89 


NAME SCORE 
SUE 67 
ALEX 66 
CHARLES 64 
BILLY 66 


DO YOU WISH ANOTHER SEARCH (Y OR N)?Y 
[Clear screen] 
MAXIMUM SCORE?59 


MINIMUM SCORE?50 
NAMES WITH SCORES IN THE RANGE: 50-59 


NAME SCORE 
BOB 55 
STAN 50 


DO YOU WISH ANOTHER SEARCH (Y OR N)?Y 


[Clear screen] 


MAXIMUM SCORE?49 
MINIMUM SCORE?40 


NAMES WITH SCORES IN THE RANGE: 40-49 


NAME 


***NONE FOUND*** 


SCORE 


DO YOU WISH ANOTHER SEARCH (Y OR N)?N 
**x* SEARCH COMPLETED жж 


38 


3.3.2 Additional Comments on PROGRAM 4 


DATA statements may be included anywhere in a BASIC program. They are 
not executed as, for example, a PRINT or INPUT statement would be. Their only 
use is to contain data (information) that is to be READ and assigned to variables. 
The DATA statements in PROGRAM 4 are placed near the end of the program 
so that additional DATA statements may be added if desired. The last data ele- 
ment pair, “Х” and 0, is given the highest number possible for a DATA statement 
(999 in this case). Thus, additional DATA statements could be inserted between 
statements 600—999 if there were a need to add more data. 


3.4 A TIME-SAVING TECHNIQUE 


There may be times when the reader wishes to SAVE both the “old” and “new” 
versions of a program. The “new” (modified) version of a program may be 
SAVEd by simply giving it a new (unique) name when the SAVE command is 
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issued. We did this earlier in Chapter 2 when PROGRAM 1 was modified (with 
the heartbeats) and SAVEd as PROGRAM 2. 

To illustrate this technique, PROGRAM 4 will be modified, renamed, and 
SAVEd as PROGRAM 5. This means that both the old (PROGRAM 4) and the 
new (PROGRAM 5) programs will be available for future use. 


3.4.1 PROGRAM 5: Searching for a Specific Value 


Arbitrarily, this new version of PROGRAM 4 will perform a search for only 
one user-specified score, listing all the names with that score. 

First, the LIST of PROGRAM 4 is studied. Examination of the list of state- 
ments shows which lines need to be modified. These changes are then made, as 
indicated in the session that follows. 

The program is then RUN to test these modifications. On completion of a 
successful RUN, the program is SAVEd as PROGRAM 5. It is then listed for 
examination. Note that a new program (PROGRAM 5), based on another pro- 
gram (PROGRAM 4), has been created and SAVEd without the time and trouble 
required to completely type the new version. 


Run from disk and refer to the listing and run of PROGRAM 5. 


LOAD PROGRAM 4 


120 


150 


1130 


1140 


1160 


1230 


IDEL 


1270 


1370 


1380 


1400 


1410 


1460 


1470 


REM PROGRAM 5 DESCRIPTION 


REM PROGRAM SEARCHES FOR A SPECIFIED 
SCORE, 
REM Mi - SCORE SOUGHT 


REM F - COUNTER FOR THE NUMBER OF MATCHES 


FOUND 
PRINT "SCORE SOUGHT" S$ 


250 +260 


PRINT "NAMES WITH A SCORE OF "М1 


IF S <> M1 THEN 420 


COUNT THE NUMBER OF MATCHES 


PRINT "THIS SEARCH FOUND "$F5" MATCH(ES)" 


PRINT 


20 and 50 retyped in program 
description. 


130 retyped to reflect program change. 
140 is deleted (no longer needed). 
160 retyped to reflect program change. 
230 retyped to reflect program change. 
250 and 260 deleted (not needed). 
270 retyped to reflect program change. 


370 retyped to perform check for match 
of score sought. 


380 is deleted (not needed). 
400 retyped to reflect program change. 


410 changed from flag to counter of 
matches found. 


460 and 470 changed to show number 
of matches found. 
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IRUN 
[Clear screen] 


SCORE SOUGHT?100 
NAMES WITH A SCORE OF 100 


NAME SCORE 
BOBBIE 100 
KAREN 100 


THIS SEARCH FOUND 2 MATCH(ES) 
DO YOU WISH ANOTHER SEARCH (Y OR N)?Y 
[Clear screen] 


SCORE SOUGHT?75 
NAMES МІТН А SCORE OF 75 
NAME SCORE 


THIS SEARCH FOUND 0 MATCH(ES) 
DO YOU WISH ANOTHER SEARCH (Y OR N)?Y 
[Clear screen] 


SCORE SOUGHT?50 
NAMES WITH A SCORE OF 50 
NAME SCORE 


STAN 50 
THIS SEARCH FOUND 1 MATCH(ES) 


DO YOU WISH ANOTHER SEARCH (Y OR N)?N 
*** SEARCH COMPLETED +++ 


ISAVE PROGRAM 5 


1115Т 

10 REM zzzzzzzzzzzzzz-z 

20 REM PROGRAM 5 DESCRIPTION 

30 REM вантиватссасазас 

40 REM KEY SEARCH ОҒ 50 OR LESS DATA ELEMENT 


PAIRS. 
50 REM PROGRAM SEARCHES FOR A SPECIFIED SCORE. 
60 REM DATA ELEMENTS ARE IN SEQUENCE: МАМЕ, 
SCORE, 
70 REM LAST SEQUENCE ОҒ DATA ELEMENTS IS "X",0O 
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80 REM =============== 
80 REM VARIABLE DICTIONARY 
100 REM z============== 


110 REM N$ - HYPOTHETICAL NAME 

120 REM 65 - HYPOTHETICAL SCORE 

130 REM Мі - SCORE SOUGHT 

150 REM I - LOOP COUNTER 

160 REM F - COUNTER FOR THE NUMBER OF MATCHES 
FOUND 

170 REM cime m emm 

180 REM SET THE MATCH FLAG TO ZERO» CLEAR 

190 REM THE SCREEN; AND GET THE RANGE SOUGHT. 


200 REM oe 
210 F = 0 
220 HOME 


230 PRINT "SCORE SOUGHT"; 

240 INPUT M1 

270 PRINT "NAMES WITH A SCORE OF "5M1 
280 PRINT "NAME" "SCORE" 


290 PRINT "----","----- " 
300 REM z=============z= 
310 REM DDO THE SEARCH LOOP 
320 REM =============== 


330 FOR I = 1 TO 50 

340 READ N$+S 

350 REM ===END OF DATA LIST?=== 
360 IF N$ = "X" THEN 460 

370 IF S< > Мі THEN 420 

390 PRINT N$ S 


400 REM ===COUNT THE NUMBER OF MATCHES 
FOUND=== 

410 F =F * 1 

420 NEXT I 

430 REM zzzzzsszzszzzzc 

440 REM END OF CURRENT SEARCH 

450 REM =z============== 

460 PRINT "THIS SEARCH FOUND "Ез" MATCH(ES)" 

470 PRINT 


480 PRINT "DO YOU WISH ANOTHER SEARCH (Y OR М)" 
490  INPUT Z$ 

500 IF Z$ < > "Y" THEN 1000 

510 RESTORE 

520 GOTO 210 


530 REM z============== 
540 REM DATA LIST 
550 REM =============== 


560 DATA "SUE" ,67 » "BOB" 55+" JACK" ,98 › "MARY" 
:99 ,"STAN" 950 ," ROB" ,72 
570 БАТА "ЕТА" +77 "ALEX" +66 »" SUSAN" 85, 
"MARIA" 99 , "ҒВАМ№" , 70 41 
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580 DATA "BOBBIE" ,100 "CHARLES" ;84, "BILLY" 
.Б6»"МАССІЕ" »86 

580 DATA "DONNA" ,91 , "ҮАМСҮ" ,77 ›, "ТРАСҮ" ,89, 
"KAREN" ,100 , "ВОСК" ,90 

600 REM ===ROOM FOR MORE ОАТА== = 

999 DATA "Х"% 

1000 PRINT "«x* SEARCH COMPLETED +++" 

1010 END 


3.5 POSERS AND PROBLEMS 
1. Correct any errors (if, in fact, there are any) in the following three programs: 


10 FOR X = 1 TO 10 
20 PRINT Ү»ҮжҮ 

30 NEXT Y 

40 END 


10 DATA 1+"ABC" +2 
20 READ N N$ ,N1$ 
30 PRINT N N$ ,N1$ 
40 END 


10 DATA 45556 

20 FOR X = 1 TO 3 
30 READ А 

40 PRINT A 

50 NEXT X 

60 READ А 

70 PRINT A 

BO END 


2. Below are some student data for a name and test score. Complete the 
program so that the name and score are printed in columnar form. 


10 DATA "CHUCK" ;85 ," MARY" ,80 "PHIL" ,95 ," JEANNIE" 35 
20 FOR I = 1 704 


30 READ S$/S 
?? 


3. Modify your program in Problem 2 to print the average of the scores 
after printing the list of names and scores. 


4. Write a search program in which a list of data elements consists of 
hypothetical names, hair color, eye color, and height in inches. A list is 
to be printed that shows the above information based upon a search of 

42 a user-specified eye color. For example, if BLUE is input in response to 
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“EYE COLOR?”, the name, hair color, eye color, and height in inches 
for all blue-eyed people would be printed. The program should also give 
the option to conduct another search. 

Note: This program may be easily completed by modifying PRO- 
GRAM 5. For example, PRINT statements describing the program and 
prompting for the eye color will have to be modified and/or added. The 
INPUT will have to be a string variable. The READ statement will need 
to read four DATA elements. The IF-THEN check will have to compare 
the INPUT variable and the eye-color variable just read. The PRINT state- 
ment showing a match will have to be written so that four variable values 
are displayed оп one line—consider using TAB between the variables 
in the PRINT statement. Finally, the DATA statements will have to con- 
tain four elements (name, hair color, eye color, and height in inches). 


Enter and RUN the following program. Be prepared to discuss its flow. 


9 SPEED - 100 

10 FOR X - 10 TO 1 STEP -1 

20 IF X > 1 THEN 50 

30 PRINT Xš" LITTLE RABBIT. SEE ITS TAIL!" 


40 GOTO 55 

50 PRINT Xi" LITTLE RABBITS. SEE THEIR TAILS!" 
95 PRINT» 

60 FOR I = 1 TO X 

70 PRINT "* "j 

80 NEXT I 

90 PRINT 

100 NEXT X 

110 PRINT 


120 PRINT "AND THEN THERE WERE NONE..." 
125 SPEED - 255 
130 END 


In particular, what is the purpose of "STEP -1” in statement 10, the 
comma in statement 55, the semicolon in statement 70, and the PRINT 
in statement 90? [Note: Statements 5 and 125 in the above program 
introduce SPEED which may be used either as a statement or command. 
It is used to control the rate of character display on the screen. Its value 
is relative and for our purposes may vary from 10 (very slow) to 255 
(normal rate).] 


Write a program which converts Celsius to Fahrenheit and PRINTs an 
equivalence table for every 5 Celsius degrees from 0 to 100, inclusive. 
Hint: Е = 32 + (C * 9/5). 


Write a program that will PRINT the cube of the numbers 1 to 10, 
inclusive. 
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“Frustration is not having anyone to blame but 
yourself.” 
—Bits and Pieces 


“Work spares us from three great evils: boredom, vice 
and need.” 
—Voltaire 


Think About This ( for Fun) 


I have two U.S. coins that total $0.55. One of them is not a nickel. What are the 
coins? 


Think About This (Seriously) 


Could the proliferation of microcomputers in the school and home alter the 
traditional classroom setting as we now know it? If so, how? 


DIM It! There Must Be an 
Easier Way! Array! Array! 
There Is! 


4.1 OBJECTIVES 


For the successful completion of this chapter, you should be able to: 


T. 


2; 


Define and give at least one example of а subscripted variable (Section 
4.2.1). 


Define and give at least one example of both a one-dimensional and a 
two-dimensional array (Sections 4.2.1 and 4.2.2). 


Define and give at least one example of each of the BASIC statements 
DIM and GOSUB-RETURN (Section 4.4). 


Design, enter, and RUN a BASIC program of your own choosing that 
includes a one-dimensional array and the BASIC statements for this 
chapter. 


5 
4 | N 


J 
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4.2 ARRAYS 


4.2.1 One-Dimensional Arrays 


For our purposes, a one-dimensional array is just an organized list of infor- 
mation. That information could be any string and/or numeric values: student 
names, states, chemical names, school districts, test scores, ages, weights, years, 
and so on. 

Recall the four names and test scores given in Problem 2 of Chapter 3. Using 
one-dimensional arrays in BASIC, we can easily make lists of those names and 
scores. 

Consider the BASIC statements needed. First, there is information (names 
and scores) that will be used; thus, there will be a need for DATA statements. Of 
course, if there is DATA, it will need to be READ. Also, since there are two sets 
of four elements (four names and four scores), a FOR-NEXT loop could be used 
to do the READing. Thus: 


10 DATA "CHUCK" ," MARY" »"PHIL" »"JEANNIE" 
20 FOR I = 1 TO 4 

30 READ N$(I) 

40 NEXT I 


This should appear somewhat familiar, with the exception of statement 30, 
READ N$(I). N$(I) is an example of another type of variable. This type, however, 
uses an “internal” variable, (I), to distinguish one value of N$(I) from the others. 
Remember, the variable I is going to have a value that may be 1, 2, 3, or 4 (FOR 
I - 1 TO 4). Thus, the variable values in this example are: 


N$(1) - CHUCK 
N$(2) = MARY 
N$(3) = PHIL 
N$(4) = JEANNIE 


Or, said another way, there is a 4-item list (one-dimensional array) of N$(I) 
values: 


L . NS) . 
ls CHUCK 

2. MARY 

3. PHIL 

4. JEANNIE 

The name given to these types of variables is subscripted variables. The value 


of N$(1), pronounced “N$ sub 1," is equal to the string CHUCK; the value of 
N$(2) is equal to the string MARY, and so on. 


DIM It! There Must Be an Easier Way! 


It is quite simple to build a series of lists using subscripted variables. Consider: 


10 DATA "CHUCK" 95 ,"MARY" ;BO ;"PHIL" 95 :" JEANNIE" #35 
20 FOR I = 1 104 

30 READ М%(1)»5(І) 

40 NEXT I 


If these statements were to be executed, what would be the value of N$(3)? Of 
S(4)? If the following statements were added to those above, what would be the 
result of execution? 


50 FOR I = 4 TO 1 STEP -1 
BO PRINT N$(I)sS(I) 

70 NEXT I 

BO END 


(Mentally trace the execution; then enter and RUN to check your mental 
interpretation.) 


4.2.2 Two-Dimensional Arrays 


A one-dimensional array is nothing more than a list of data. A two-dimen- 
sional array is a table of data in rows and columns. 

Assume there are two test scores for each of those students above. A table, 
consisting of 4 rows and 2 columns, might look like this: 


Name Test 1 Test 2 
CHUCK 95 80 
MARY 80 82 
PHIL 95 93 
JEANNIE 35 98 


Note: The table in this example is composed of the test scores. The names of 
the students cannot be included in the table because they are string variables, 
and the two-dimensional array is defined as a numeric array. In other words, 
variable types (string and numeric) cannot be mixed in an array. However, just 
as it is possible to define a two-dimensional numeric array, a two-dimensional 
string array may also be defined. Just don't mix them! 

How could a two-dimensional array of this information be formed? Again, 
there is information (names and scores) that will be used; so DATA statements 
are appropriate. This information in statement form would be: 


10 DATA "CHUCK" 95,80 
20 DATA "MARY" 80:82 

30 DATA "PHIL" ,95 ,93 

40 DATA "JEANNIE" +35 ,98 
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(The DATA statements above could be combined into one or two statements. 
However, they are listed as four separate statements for the sake of clarity.) 

The difficulty is in determining how the DATA should be READ. Examine 
the sequence of information: one name, followed by two scores; then the next 
name, followed by two scores; and so on. Since there are 4 rows (names) and 
each must be READ, the first loop to be defined will be FORI — 1 TO 4. However, 
before the next name is READ, there are 2 scores to be assigned (READ). So, 
another loop, FOR J - 1 TO 2, needs to be defined. Thus: 


50 FOR I = 1 TO 4 
BO READ N$(I) 


70 FOR J = 1 TO 2 
80 READ S(I:J) 
90 NEXT J 

100 NEXT I 


(Note: The indentation is for clarity only.) 

The variable I is READing the rows ofthe table, and the variable J is READing 
the columns. The J loop is said to be nested within the I loop. Examine the table 
above. What is the value of S(LJ) when I = 1 and J = 1? When I = 3 and J = 
2? The important point to remember is that I and J are nothing more than 
numbers that define a row and column, respectively. 

A more productive use of two-dimensional arrays may be illustrated by 
adding the following statements to the program: 


45 PRINT "МАМЕ" ,"TEST1","TEST2" 

48 PRINT "----","----- "›"----- 2: 

65 PRINT N$(I): 

81 PRINT 5(1,Ј), 

82 REM Т(І) = CUMULATIVE TOTAL EACH STUDENT'S SCORE 
84 TCI) = TCI) + S(I J) 

86 REM T = CUMULATIVE TOTAL OF ALL SCORES 

88 T = T + SCI:J) 

94 REM SKIP A LINE PRIOR TO PRINT OF NEXT NAME 
95 PRINT 

110 PRINT 

120 FOR I = 1 TO 4 

130 PRINT N$(I)3"'S AVERAGE IS "3T(I)/2 

140 NEXT I 

150 PRINT "THE CLASS AVERAGE IS "iT/8 

160 END 


Combine all the statements in this section into one program; then enter and RUN 
it. What is the purpose of the comma at the end of statements 65 and 81? Why 
is a blank PRINT needed in statement 95? Examine the LIST of the complete 
program very carefully and mentally follow the execution of each statement. 


DIM It! There Must Be an Easier Way! 


4.3 EXAMPLES OF THE USE OF ONE-DIMENSIONAL 
ARRAYS 


There are many more applications of one- and two-dimensional arrays in instruc- 
tional computing than just building lists or tables of names and scores. The 
following two programs give examples of some of these uses. 


4.3.1 PROGRAM 6: Searching Based on Optional Keys 


One use of one-dimensional arrays may be seen in PROGRAM 6, an expanded 
version of a search. In this program, a list of three prompts will be assigned to a 
one-dimensional array C$(C), where C - 1, 2, or 3. The appropriate prompt 
will be displayed, based upon the choice of search selected by the user. 

The program contains DATA representing names, hair color, eye color, and 
height in inches for ten hypothetical persons. The user of the program is given 
the choice of searching this DATA by hair color, eye color, or maximum height 
in inches. Following this option, a prompt is given for a key word upon which 
to base the search. A list of names, hair color, eye color, and height in inches 
matching the key word is displayed. The user is then given the option to do 
another search. 

This program is similar in concept to PROGRAMS 4 and 5 in Chapter 3 in 
which DATA is READ and IF-THEN statements are used to check for a match 
with a key word INPUT by the user. However, the program is expanded in a 
number of ways. Note the comments alongside the program listing. 


RUN from disk and refer to the listing and run of PROGRAM 6. 


LOAD PROGRAM 6 


JLIST 

10 REM z=============== 

20 REM PROGRAM G DESCRIPTION 
30 REM z============== 


40 REM "EXPANDED" SEARCH PROGRAM, 

50 REM ALLOWS SEARCH TO BE BASED UPON OPTIONAL 
KEYS, 

60 REM DATA CONTAINS МАМЕ» HAIR COLOR» EYE 
COLOR: HEIGHT IN INCHES, 

70 REM LAST DATA ELEMENT SEQUENCE IS XXX X, 


BO REM =============== 
90 REM "VARIABLE DICTIONARY 
100 REM =============== 


110 REM C - SEARCH OPTION CHOICE 

120 REM С%( ) - PROMPT FOR SEARCH KEY WORD 
130 REM E$ - EYE COLOR 

140 REM F - COUNTER FOR THE NUMBER OF "FINDS" 
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150 REM Н% - HAIR COLOR 

1680 REM I - LOOP COUNTER 

170 REM 1% - HEIGHT IN INCHES 
180 REM N$ - NAME 

180 REM 5% - SEARCH KEY WORD 


200 REM z=============== 

210 REM ASSIGN THE OPTIONS 

220 REM =============== 

230 C$(1) = "HAIR COLOR" 

240 C$(2) - "EYE COLOR" 

250 C$(3) - "MAXIMUM HEIGHT IN INCHES" 
260 REM z=z==========x==== 


270 REM CLEAR THE SCREEN AND 
280 REM PRINT THE OPTIONS 


290 REM =============== 
300 F = O 
310 HOME 


320 PRINT "DO YOU WISH TO SEARCH BY:" 
330 FOR I = 1 TO 3 

340 PRINT " VEE" гет) 

350 NEXT I 

360 PRINT "ENTER THE NUMBER OF YOUR CHOICE"; 
370 INPUT C 

380 REM ===00Т OF RANGE CHECK=== 

390 IF С < 1 THEN 360 

400 IF C > 3 THEN 360 

410 PRINT С%(С): 

420 INPUT 5% 

430 PRINT "*** SELECTION LIST #**" 

440 PRINT "NAME" "HAIR EYES HEIGHT" 
450 PRINT "----","---- ---- ------ x: 
460 FOR I = 1 TO 50 

470 READ М%»Н%,%Е%,1% 

480 IF N$ - "X" THEN 640 

490 REM ===========z===== 

500 REM GO TO THE APPROPRIATE 

510 REM LINE TO CHECK FOR MATCH 

520 REM ОҒ OPTION SELECTED 

530 REM =============== 

540 ON С СОТО 550 ,570 ,590 

550 IF S$ = H$ THEN 600 

560 GOTO 630 

570 IF S$ - E$ THEN 600 

580 GOTO 830 

580 IF S$ < I$ THEN 630 


BOO PRINT N$,H$;" "SESS" "351$ 

610 REM ===COUNT THE NUMBER FOUND=== 
620 F = F + 1 

630 NEXT I 


840 PRINT 


230—250 assign values to string variables 
C$(1), C$(2), and C$(3). 


330—350 print search choices. 


370 assigns INPUT choice (1, 2, or 3) to 
variable C. 

390—400 ensure that value INPUT is in 
range 1-3. 


410 displays appropriate prompt, based 
upon value of C (e.g., if choice is 2, C 
has value 2; so C$(C) is C$(2), and 
"EYE COLOR” is printed at 410.) 


420 INPUTS user's key word for search, 
assigning it to variable S$. 


540 transfers execution to appropriate 
IF-THEN statement for match checking. 
[E.g., if C = 2 (from choice made at 
370), transfer is to 570, where INPUT 


* variable S$ is checked with E$, the eye 


color.] 


In particular, note 590. BASIC allows 
comparison of string variables for “less 
than,” “greater than,” “not equal to,” 
and so on. Just as a numeric value of 62 
is less than a numeric value of 63, the 
character “А” is less than “В” which is 
less than “С”, and so оп. 


850 PRINT "THIS SEARCH FOUND "ЕЗ" ENTRIES." 

660 PRINT "DO ANOTHER (Y OR N)"; 

870 INPUT 2% 

680 IF Z$ < > "Y" THEN 1000 

690 RESTORE 

700 GOTO 300 

710 DATA "MARY" "BLACK" "GREEN" , "62" "BILL" + 
"BROWN" »"BROWN" ,"70" 

720 DATA  "SUE";"BLOND" "GREEN" "68" "BOB", 
"BLACK" ,"GREEN" ,"72" 

730 DATA "ЈАМЕ" , "ВВОИМ" "BROWN" "59" ,"JACK" » 
"BLOND" ,"GREEN" ,"74" 

740 DATA "BETTY" "BLACK" "BLACK" "BB" ,"FRED" + 
"BLACK" "BROWN" ,"73" 


750 DATA "FRANCES", "BLOND" "BROWN" »"G4" , "ВОСК", 


"BLOND" ,"GREEN" +"68" 
760 REM === ROOM FOR MORE DATA === 
999 DATA иуи QUMEM ¿M "уту" 
1000 PRINT "*** SEARCH COMPLETED ***" 
1010 END 


IRUN 
[Clear screen] 


DO YOU WISH TO SEARCH BY: 

1 HAIR COLOR 

2 EYE COLOR 

3 MAXIMUM HEIGHT IN INCHES 
ENTER THE NUMBER ОҒ YOUR СНОІСЕ?І 
HAIR COLOR?BLOND 
*** SELECTION LIST *** 


NAME HAIR EYES HEIGHT 
SUE BLOND GREEN 66 
JACK BLOND GREEN 74 
FRANCES BLOND BROWN 64 
BUCK BLOND GREEN 68 


THIS SEARCH FOUND 4 ENTRIES. 
DO ANOTHER (Y OR N)?Y 


[Clear screen] 


DO YOU WISH TO SEARCH BY: 
1 HAIR COLOR 
2 EYE COLOR 
3 MAXIMUM HEIGHT IN INCHES 


DIM It! There Must Be an Easier Way! 
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ENTER THE NUMBER OF YOUR CHOICE?5 
ENTER THE NUMBER OF YOUR CHOICE?O 
ENTER THE NUMBER OF YOUR CHOICE?2 
EYE COLOR?HAZEL 

**x* SELECTION LIST +++ 

NAME HAIR EYES HEIGHT 


THIS SEARCH FOUND 0 ENTRIES. 
DO ANOTHER (Y OR N)?Y 


[Clear screen] 


DO YOU WISH TO SEARCH BY: 

1 HAIR COLOR 

2 EYE COLOR 

3 MAXIMUM HEIGHT IN INCHES 
ENTER THE NUMBER OF YOUR СНОІСЕ?2 
EYE COLOR?BROWN 
*** SELECTION LIST +++ 


NAME HAIR EYES HEIGHT 
BILL BROWN BROWN 70 
JANE BROWN BROWN 69 
FRED BLACK BROWN 73 
FRANCES BLOND BROWN 64 


THIS SEARCH FOUND 4 ENTRIES. 
DO ANOTHER (Y OR N)?Y 


[Clear screen] 


DO YOU WISH TO SEARCH BY: 

1 HAIR COLOR 

2 EYE COLOR 

3 MAXIMUM HEIGHT IN INCHES 
ENTER THE NUMBER OF YOUR CHOICE?3 
MAXIMUM HEIGHT IN INCHES?66 
**x* SELECTION LIST *** 


NAME HAIR EYES HEIGHT 
MARY BLACK GREEN 62 
SUE BLOND GREEN 66 
BETTY BLACK BLACK 66 
FRANCES BLOND BROWN 64 


THIS SEARCH FOUND 4 ENTRIES, 
DO ANOTHER (Y OR N)?N 
*** SEARCH COMPLETED +++ 


DIM It! There Must Be an Easier Way! 


4.3.2 PROGRAM 7: Random Selection from a List 


Another common use of one-dimensional arrays in instructional computing 
is in building lists of information for retrieval. These lists contain information, 
such as names, classification, and addresses; questions, answers, and hints for a 
given concept or topic; numerical data for analysis; and so on. Our next program 
illustrates one method of building lists and then randomly selecting items of 
information from them. 

The primary purpose of this program is to demonstrate building one-dimen- 
sional string arrays (lists) and then randomly selecting from the lists. A user is 
given the option of making the length of the list from 3 to 15 elements. The lists, 
containing names and sex, are then made via INPUT statements. The user then 
has the option of selecting the number of names to be randomly selected from 
the list, with each randomly selected name appearing only once. This randomly 
selected list and the complete list of all names are printed. 


RUN from disk and refer to the listing and run of PROGRAM 7. 


JLOAD PROGRAM 7 


lLIST 

10 REM SS SiS Sin Se Sie MISC m 10-290 briefly describe the purpose of 
20 REM PROGRAM 7 DESCRIPTION the program and the variables used. 
30 REM =======z====z===x== 


40 REM PROGRAM DEMDNSTRATES THE 

50 REM USE ОҒ 1-DIMENSIONAL STRING 
БО REM ARRAYS» DIM STATEMENTS,» 

70 REM AND RANDOM SELECTION 

BO REM WITHOUT REPETITION. 


90 REM ==============z== 
100 REM VARIABLE DICTIONARY 
110 REM zg============== 


120 REM N - NUMBER OF NAMES IN ñ LIST 
(УТА INPUT) 

130 REM N$( ) - HYPOTHETICAL NAMES 

140 REM S - NUMBER ОҒ NAMES RANDOMLY 

150 REM SELECTED (VIA INPUT) 

180 REM $S$( ) - SEX (MALE OR FEMALE) 

170 REM X - SOME RANDOM NUMBER 

180 REM 7(Х) - FLAG FOR SELECTED 

180 REM RANDOM NUMBER 

200 REM IF Z(X) = 0» NUMBER HAS 

210 REM NOT BEEN RANDOMLY SELECTED 

220 REM IF Z(X) = 1+ NUMBER HAS BEEN 

230 REM SELECTED AND PRINTED 

240 REM =na=====u========== 

250 REM DIMENSION THE VARIABLES. 

260 REM CLEAR THE SCREEN. 

270 REM GET SOME NAMES 
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280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 


REM AND SEX INPUT, 

REM z=z===z=========== 

DIM М%(15),;5%(15),2(15) 

HOME 

PRINT "HOW MANY NAMES DO YOU WISH TO ENTER" 
PRINT "(AT LEAST 3 BUT NO MORE THAN 15)" 
INPUT N 

IF N < 3 OR N > 15 THEN 320 

FOR I = 1 ТОМ 

REM ===INITIALIZE THE FLAG=== 
Z(I) = 0 

PRINT "NAME NUMBER "3I; 

INPUT N$(I) 

PRINT "SEX (M OR Е)"; 

INPUT 5%(1) 

NEXT I 

PRINT "OF THE "šN;i" NAMES; WHAT NUMBER" 
PRINT " DO YOU WISH TO RANDOMLY SELECT"; 
INPUT S 

REM  ---ENOUGH AVAILABLE?=== 

IF 5 < = N THEN 510 

PRINT "IMPOSSIBLE! YOU ONLY ENTERED 
GOTO 440 

PRINT 

PRINT 55" RANDOMLY SELECTED NAMES:" 
PRINT "NUMBER" "NAME" "SEX" 

PRINT "------ LM DM MM кезен. 

REM sssszsesuszasccz 

REM SELECT THE NAMES 


REM АТ RANDOM 


REM z============== 

FOR I = 1 TOS 

REM ===GET A RANDOM X UALUE--- 
X = INT (N * RND (1) + 1) 

REM  ---HAS X APPEARED BEFORE?=== 
IF Z(X) - 0 THEN 660 

PRINT "NUMBER "3X3" SELECTED AGAIN," 
GOTO 610 
Z(X) = 1 

PRINT Х,№(Х) ,5%(Х) 

МЕХТ І 

PRINT 

PRINT "THE COMPLETE LIST IS:" 
PRINT "NUMBER" ;"NAME" , "SEX" 

PRINT е Ж. m тү Же 

FOR I = 1 TON 

PRINT І»М%(І)»5%(1) 

NEXT I 

PRINT "* * * DONE * ж x" 

END 


300 DIMensions (Section 4.4.1) length 
of one-dimensional arrays (lists) to 
maximum of 15 elements. 


320—340 allow user to define number of 
elements in list. 


350 shows how one IF-THEN statement 
may be used to check for both minimum 
or maximum values. 


360—430 request a name [assigned to 
N$(I)] and sex [assigned to S$(1)] for 
each list element. 


440—500 give user the option of defining 
number of random selections to be 
made from list just entered. 


510—540 print heading for lists of 
randomly selected items. 


590—680 print lists of randomly selected 
numbers, names, and sexes. 


590 defines S (number of names 
selected) to be upper limit of loop. 


610 assigns X some random value 
between 1 and N (number of names in 
complete list). 


630 checks value of Z(X). If Z(X) - 0 
[all values of Z(X) initialized to zero in 
380], random number represented by X 
not previously used; so transfer is to 
660, where Z(X) set to 1. If Z(X) = 1, 
random value X appeared previously; 
640 then displays message illustrating 
that numbers may be randomly selected 
more than once. 650 then transfers 
execution to 610 where another random 
value is generated. 


670 prints values of X, N$(X), S$(X). 
Loop continues at 680 until completion. 


After randomly selected list is printed, 
700—760 print complete list of names 
and sex; program then ends. 


IRUN 
[Clear screen] 


HOW MANY NAMES DO YOU WISH TO ENTER 
(AT LEAST 3 BUT NO MORE THAN 15) 
?100 
HOW MANY NAMES DO YOU WISH TO ENTER 
(AT LEAST 3 BUT NO MORE THAN 15) 
?7 
NAME NUMBER 1?FRANK 
SEX (M OR F)?M 
NAME NUMBER 2^?FRAN 
SEX (M OR F)?F 
NAME NUMBER 3?BILL 
SEX (M OR F)?M 
NAME NUMBER 4?BARB 
SEX (M OR F)?F 
NAME NUMBER S?BUCK 
SEX (M OR F)?M 
NAME NUMBER 6?РАМ 
SEX (M OR F)?F 
NAME NUMBER 7^?GH 
SEX (M OR F)?M 
OF THE 7 NAMES; WHAT NUMBER 
DO YOU WISH TO RANDOMLY SELECT?10 
IMPOSSIBLE! YOU ONLY ENTERED 7! 
OF THE 7 NAMES» WHAT NUMBER 
DO YOU WISH TO RANDOMLY SELECT?4 


4 RANDOMLY SELECTED NAMES: 


NUMBER NAME SEX 
6 PAM F 
4 BARB F 
5 BUCK M 
7 GH M 


THE COMPLETE LIST IS: 

NUMBER NAME SEX 
FRANK M 
FRAN 
BILL 
BARB 
BUCK 
PAM 
GH 

* * DONE * * * 


* OU D OQ N н 


DIM It! There Must Be an Easier Way! 
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4.3.3 Use of a Flag for Nonrepetitive Random Selection 


In PROGRAM 7, all values for Z(X) are initialized to zero (statement 380) 
as the name and sex information is INPUT. A partial list of the information INPUT 
in the sample RUN of PROGRAM 7 would be: 


x М(Х) S$(X) Z(X) 
1 Ғгапк м 0 
2 Ғтап Е 0 
3 ВШ м 0 
4 Barb F 0 


If, for example, a random value for X is 3 (statement 610), Z(3) is set to 1, 
and the list would now be: 


x N$(X) S$(X) Z (X) 
1 Frank M 0 
2 Fran F 0 
3 Bill M 1 
4 Barb F 0 


Since Z(3) is now equal to 1, any subsequent random value where X is equal to 
3 would cause statements 630—650 to transfer execution back to statement 610, 
where another random value for X would be generated. Therefore, any randomly 
selected name in this program example will be displayed only one time. 


4.4 BASIC STATEMENTS FOR THIS CHAPTER 


4.4.1 Statement DIM 


Purpose DIMensions (defines the size needed) for one-dimensional 
and two-dimensional arrays. On most BASIC systems, it is not necessary to use 
the DIM statement unless the array will contain more than ten elements. Most 
systems automatically allocate space for ten or less elements. However, it is good 


DIM It! There Must Be an Easier Way! 


programming practice to DIMension all arrays, even those containing ten or less 
elements. 


Examples: DIM N$(12) 


(Dimensions space for a list of 12 string variables.) 
DIM 5(20,3) 
(Dimensions space for a 20-row, 3-column table containing numeric data.) 


4.4.2 Statement Pair GOSUB-RETURN 


Purpose This statement pair is very useful for programs in which а 
sequence of statements is repeated several times throughout program execution. 
Whenever GOSUB is encountered, program execution is transferred to the state- 
ment number specified in the GOSUB. Execution continues from that statement 
until the RETURN statement is encountered. Execution is then transferred 
(RETURNed) to the statement number immediately following the GOSUB state- 
ment that caused the transfer in the first place. 

A typical example in instructional computing would be an answer-checking 
sequence for student input in a program containing several questions. Rather 
than writing an identical answer-checking sequence for each question, it is writ- 
ten only once as a subroutine. GOSUB may then be used after each question to 
check the answer. 


Example: 10. PRINT "CAPITAL OF TEXAS"; 
20 A$ - "AUSTIN" 
30 GOSUB 200 
40 PRINT "X MARKS THE --?--"j 
50 А% - "SPOT" 
60 GOSUB 200 
70 GOTO 300 
200 INPUT R$ 
210 IF R$ - A$ THEN 240 
220 PRINT "NOPE... IT’S "ЗА% 
230 GOTO 250 
240 PRINT "OHHH, MARVELOUS!" 
250 RETURN 
300 PRINT+"BYE-BYE..." 
310 END 


Mentally execute this program before entering and RUNning it. Why is statement 
70 needed? 


4.4.5 PROGRAM 8: Question Sets and Hints, Using 
GOSUB-RETURN Statements 


The following program illustrates the use of GOSUB-RETURN in a '^muscle 
quiz." Note that alternate correct answers are used, note how the questions, 
additional hints, and answers are assigned and presented, and note that credit is 
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given for only those answers that are correct on the first try. Mentally outline 
the execution of this program carefully: Unlike previous programs, PROGRAM 
8 does not have explanatory comments accompanying it. 


RUN from disk and refer to the listing and run of PROGRAM 8. 


JLOAD PROGRAM 8 


ILIST 
20 REM PROGRAM 8 DESCRIPTION 
30 REM z============== 


40 REM PROGRAM DEMONSTRATES THE USE OF 
50 REM GOSUB-RETURN» CHECKING FOR 

60 REM SYNONYMOUS CORRECT ANSWERS» AND 
70 REM THE USE OF ON-GOTO FOR HINTS, 


80 REM s============== 
90 REM VARIABLE DICTIONARY 
100 REM z============== 


110 REM C - CORRECT ANSHER COUNTER 
120 REM C$ - SYNON, CORRECT ANSWER 
130 REM 0% - SYNON. CORRECT ANSWER 
140 REM Е% - SYNON. CORRECT ANSWER 
150 REM F - FLAG FOR MISS ON 1ST TRY 
160 REM X - QUESTION NUMBER COUNTER 


170 REM zzszzssczsassecc 

180 HOME 

190 PRINT " MUSCLE Q U I 2" 
200 PRINT 

210 REM z============== 


220 REM PRINT THE QUESTION, DEFINE 

230 REM THE QUESTION NUMBER AND THE 

240 REM ANTICIPATED CORRECT ANSWERS. THEN 
250 REM GO TO THE SUBROUTINE FOR INPUT, 


260 REM zz============== 

270 REM 

280 PRINT "HHAT IS THE LARGEST MUSCLE" 
290 PRINT " IN THE HUMAN BODY "i 

300 X = 1 

310 C$ - "GLUTEUS MAXIMUS" 

320 D$ - "BUTTOCKS" 


330 E$ - "DERRIERE" 

340 GOSUB 5000 

350 REM =============== 

360 REM REPEAT THE QUESTION AND 
370 REM ANSWER SEQUENCE AGAIN 
380 REM s============== 


390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5080 


5100 


PRINT "ИНАТ MUSCLE IS CONSIDERED BY SOME" 


PRI 
PRI 


E$ = 
GOS 
REM 
REM 
REM 
REM 
PRI 
PRI 
PRI 

Х = 

C$ 

D$ 

E$ 
Gos 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


NT " TO HAVE AN ORIGIN" 
NT "BUT NO INSERTION "35 
2 
===ONLY ONE ANSWER=== 
"TONGUE" 
C$ 
C$ 
UB 5000 


REPEAT THE PROCESS 
FOR А FINAL QUESTION 


NT "WHAT MUSCLE HAS MADE MARK EDEN ВІСН," 


NT " OLD MEN LEER" 
NT "AND HEIGHT LIFTERS STRUT "i 
3 
"PECTORAL" 
"PECTORALIS MAJORA" 
"PECTORALS" 
UB 5000 


THERE'S PLENTY OF ROOM 

TO ADD MORE QUESTIONS AND 
ANSWERS FOLLOWING THE SAME 
SEQUENCE AS ABOVE, 

HINTS WOULD NEED TO BE 
ADDED TO THE SUBROUTINE, 


STATEMENT 4990 IS NEEDED 

TO SKIP THE SUBROUTINE» 
GIVE THE PERFORMANCE SCORE: 
AND END THE PROGRAM. 


GOTO 5270 


IN 
IF 
IF 
LP 


REM 


IF 
F = 
RE 
ON 
PR 


PUT A$ 
A$ = C$ THEN 5200 
A$ = D$ THEN 5200 
A$ = E$ THEN 5200 
==MISSED BEFORE? (F=1)=== 
THEN 5170 


- | 


F = 
1 

М ===GIVE HINT FOR QUEST 152» OR 3=== 
X GOTO 5090151205140 

INT "SOME AUTHORITIES SAY WOMEN FIRST 


NOTICE" 


PR 


INT "THIS... NOW TRY AGAIN..." 


DIM It! There Must Be an Easier Way! 
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5110 GOTO 5000 

5120 PRINT "ON SOME; IT WAGS ALOT. NOW TRY..." 
5130 GOTO 5000 

5140 PRINT "PALM-TO-PALM PRESSURE DEVELOPS THIS" 
5150 PRINT "MUSCLE. TRY IT AGAIN..." 

5160 GOTO 5000 

9170 PRINT "A CORRECT ANSWER IS ";C$ 

5180 GOTO 5240 

5180 REM ===NO CREDIT GIVEN IF MISSED 1ST TRY=== 
5200 IF F = 1 THEN 5220 

5210 C 5 C * 1 

5220 PRINT "О.К." 


9230 REM ===SET F TO ZERO BEFORE NEXT QUESTION=== 
5240 F = 0 

5250 PRINT 

5260 RETURN 

5270 PRINT 


9280 PRINT "YOU GOT "Сз" CORRECT ON THE FIRST TRY." 
5280 PRINT »"ТНАТ”5 ALL..." 
5300 END 


JRUN 
[Clear screen] 
HUS CLE QUIZ 


МНАТ IS THE LARGEST MUSCLE 
IN THE HUMAN BODY ?HEAD 
SOME AUTHORITIES SAY WOMEN FIRST NOTICE 
THIS... NOW TRY AGAIN... 
?BICEPS 
A CORRECT ANSWER IS GLUTEUS MAXIMUS 


WHAT MUSCLE IS CONSIDERED BY SOME 
TO HAVE AN ORIGIN 

BUT NO INSERTION ?BICEPS 

ON SOME, IT WAGS ALOT. NOW TRY... 

?TAIL 

А CORRECT ANSWER IS TONGUE 


WHAT MUSCLE HAS MADE MARK EDEN RICH: 
OLD MEN LEER 

AND WEIGHT LIFTERS STRUT ?CHEST 

PALM-TO-PALM PRESSURE DEVELOPS THIS 

MUSCLE. TRY IT AGAIN... 

?PECTORALS 

D.K. 


YOU GOT O CORRECT ON THE FIRST TRY. 
THAT'S ALL... 


IRUN 
[Clear screen] 


MUSCLE QUIZ 


МНАТ IS THE LARGEST MUSCLE 

IN THE HUMAN BODY ?GLUTEUS BIGGEST 
SOME AUTHORITIES SAY WOMEN FIRST NOTICE 
THIS... NOW TRY AGAIN: +»: 
?GLUTEUS MAXIMUS 
D.K, 


WHAT MUSCLE IS CONSIDERED BY SOME 
TO HAVE AN ORIGIN 

BUT NO INSERTION ?TONGUE 

D.K, 


WHAT MUSCLE HAS MADE MARK EDEN RICH: 
OLD MEN LEER 


AND HEIGHT LIFTERS STRUT ?PECTORALIS MAJORA 


D.K, 


YOU GOT 2 CORRECT ON THE FIRST TRY, 
THAT'S АШ... 


4.5 POSERS AND PROBLEMS 


DIM It! There Must Be an Easier Way! 


1. Assume you have a class of 20 students and the semester test average 
and final exam scores for each. Outline the BASIC statements that would 


make a series of lists of this information. 


2. Outline the BASIC statements that will read 3 scores for each of 25 


students into a two-dimensional array. 


3. Write a brief paragraph outlining the execution of the program consisting 


of the combined statements of Section 4.2.2. 


4. Describe what would result from execution of the following BASIC 


statements: 


10 DATA "TEXAS" ,"OKLAHOMA" ,"KANSAS" ,"NEUADA" , "UTAH" 


20 FOR I = 1 TO 5 

30 READ S$(I) 

40 NEXT I 

50 FOR K = 1 TO 3 

60 X = INT(S*RND(1)-*1) 
70 PRINT S$(X) 

80 NEXT K 

90 END 
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2; 


How would adding the following statements affect the execution of the 
program in Problem 4? 


34 2(1) = O 
64 IF Z(X) = 1 THEN 60 
66 Z(X) = 1 


Describe the execution of the program in Problem 5 if statement 50 is 
changed to 


50 FOR K = 1 TO B 


Think this through carefully before entering and RUNning. Remember, 
CTRL-C (CONTROL and C keys depressed simultaneously) will halt a 
runaway program! 


How would you modify the program in Section 4.4.2 to print a hint as 
a response for the first miss and give the correct answer on the second 
miss? [Hint: One way to do this is shown in PROGRAM 8. Another way 
is to assign the hint to, say, H$ and use an IF-THEN (IF F = 1 THEN...) 
to either give the hint (F = 0) or the correct answer (F = 1).] 


Write a program that creates five random sentences from lists of subjects, 
verbs, and objects. 


Write a program to choose and print four random numbers between 1 
and 10 without repeating any number that has been printed. 
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“Tis an old tale, and often told." 
—Walter Scott 


"And look before you, ere you leap; 
For as you sow, y' are like to reap." 
—Samuel Butler 


Think About This ( for Fun) 


Four men are on a raft in the middle of the ocean. Each has one carton of 
cigarettes but no means whatsoever of lighting them. The smartest of the four, 
however, devotes his full mental prowess to the problem and, within minutes, 
all are smoking a cigarette. How was this accomplished? 


Think About This (Seriously) 


Could the role of the teacher change as computers become common in our 
schools? If so, how do you see this new role? 


Chapter 


Relax and Catch Your 
BASIC Breath 


5.1 OBJECTIVES 
For the successful completion of this chapter, you should be able to: 
Design, enter and RUN a minimum of three short programs using the 
BASIC statements summarized below. 
5.2 BASIC STATEMENTS: A SUMMARY AND SOME 
TYPICAL USES 


As an examination of any BASIC text or manual will show, there is more to the 
language than has been discussed so far. To this point, there has been presented 
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nothing more than just a brief introduction to the basics of BASIC. Although 
there is much more (some of which will be presented in later chapters), the 
statements and commands discussed to this point do provide a foundation for 
instructional computing applications. 

This chapter summarizes these statements and provides a very general out- 
line for their use in designing application programs. This summary must be gen- 
eral in illustrating applications since, as in any writing endeavor (programming 
or otherwise), the author's creativity is the limiting factor. The BASIC statements 
provide only the means by which programs can be constructed. The content, 
design strategies, effectiveness, and applicability of programs are the end result 
of creativity. Programs can only be as good—or as bad—as this factor. 

Note: Many of the following examples are actually program fragments that 
may be referenced for future program development. 


5.2.1 PRINT 


Displays (outputs) information 


Some typical uses Example 
Output text PRINT "ЫНАТ”5 YOUR NAME"; 
Text + numeric variable PRINT "SCORE IS "383" PERCENT" 
Text + string variable PRINT "HELLO; "3N$;"!" 
Numeric with spacing PRINT A+B+C 
String (close-packed) PRINT N$:8$ 34$ 
5.2.2 LET 


Assignment of a value to a variable 


Some typical uses Example 
Counters Ü = Ü i 
Assigning correct answers А% = "AUSTIN" 
ñ = Y * Z 
Assigning hints H$="“RIVER CITY'" 
Computation 5 = С * 100/0 


5.2.3 INPUT 
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Receives information (input) from keyboard and assigns to defined variables 


Some typical uses 


Numeric input 
String input 
Combinations 


5.2.4 GOTO 


Example 


INPUT N 
INPUT N$ 


INPUT N$.N 
INPUT X Y Z 


Unconditional branch (transfer of execution) to a specified statement number 


Some typical uses 


Skipping statements 


Returning for input 


Example 


100 GOTO 130 

110 PRINT "VERY GOOD!" 

120 C=C + 1 

130 PRINT "NEXT QUESTION..." 


100 INPUT R 


. 
. 
. 


150 PRINT "NO; TRY AGAIN..." 


160 GOTO 100 


(Note: The : denotes omitted program segments.) 


5.2.5 IF-THEN 


Conditional branch to specified statement number if the defined condition is true 


Some typical uses 


Answer checking 


100 IF R$=A$ THEN 130 


"NO; THE ANSWER IS "SAS 


120 GOTO 140 


"GOOD SHOW!" continued 
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Determining the 140 IF F = 1 THEN 160 
sequence of execution 190 Ü = E * Í 
160 PRINT " NEXT QUESTION..." 


100 IF R < 40 THEN 140 
110 IF R > 40 THEN 160 


140 PRINT "TOO LOW..." 


180 PRINT "TOO HIGH..." 


100 IF F = 1 THEN 200 
110 F = 1 
120 PRINT "HERE'S А HINT..." 


200 PRINT "THE CORRECT ANSWER IS "ЗА 
100 IF AS = "STOP" THEN 800 


800 PRINT "HERE'S YOUR SCORE..." 


5.2.6 ON-GOTO 


Branch to a specified statement, based on the value of a defined variable or expression 


Some typical uses Example 


Branch to a randomly 


selected question : 
100 X = INT (5 * RND (1) + 1) 
5 


150 ON X GOTO 200 ,300 +400 1500 »600 
200 PRINT "QUESTION 1..." 


300 PRINT "QUESTION 2..." 


ere О eee 
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Branch to a hint for ' 
* 


a given question ' 
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100 PRINT "QUESTION 1..." 


110 Q 


= 1 


500 INPUT R$ 


550 PRINT "HERE'S A HINT..." 
560 ON Q GOTO 700,800,900 


700 PRINT "HINT FOR QUESTION 1..." 
710 GOTO 500 


5.2.7 DATA-READ (Statement pair) 


Stores and assigns (READs) information to a defined variable 


Some typical uses Example 


Assignment of question 100 
answer and hint 110 


Assignment of numerical 100 
information 


REM *** Q$=QUES AS=ANS H$-HINT 
DATA "TEXAS" s"AUSTIN" »"RIVER CITY" 


READ 0%,А%,Н% 


DATA 90 ,76 ,55 ,70 ,88 ,93 


READ 815825853 
T= T+ Si + S2 + S3 


READ 61,52,53 
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5.2.8 FOR-NEXT (Statement pair) 


Repeats (loops) statement sequence between the FOR and the NEXT a defined number of times 


Some typical uses Example 


Assigning data to arrays 200 
210 
220 
230 
240 
250 
260 
270 
280 


Checking response to match , 
any defined answer : 

200 
210 
220 
230 
240 


Defining the number of . 
questions to be asked 


PRINT "NUMBER OF SCORES"; 
INPUT N 

FOR I = 1 TON 

PRINT "SCORE"i 

INPUT 5(1) 

F w “T wit) 

NEXT I 

A = Т/М 

PRINT “AVERAGE SCORE IS "iA 


DATA "QUES 1", "ANS 1","НІМТ 1" 
DATA "QUES 2","АМ5 2";"HINT 2" 


FOR I = 1 TO 10 
READ 0%(1) ,А$(1) s3H$(I) 
NEXT I 


FOR I = 1 TO 10 

IF R$ - A$(I) THEN 240 
NEXT I 

GOTO 500 


PRINT "MATCHES ANS NO. "$I 


PRINT "HOW MANY DO YOU MANT"; 
INPUT P 

IF P < 26 THEN 150 

PRINT "THAT'S TOO MANY!" 

GOTO 100 

FOR I s 1 TOP 

PRINT "PROBLEM NUMBER "iP 


NEXT I 
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5.2.9 GOSUB-RETURN (Statement pair) 


GOes to the statement number defining the SUBroutine, executes the statements in sequence 
until RETURN is executed, and then returns to the statements following the GOSUB 


Some typical uses 


Answer-checking 
sequence 


Example 


100 PRINT "QUESTION 1..." 
105 AS = "ANSWER 1" 

110 GOSUB 2000 

120 PRINT "QUESTION 2..." 
125 AS = "ANSWER 2" 

130 GOSUB 2000 


2000 INPUT R$ 
2010 IF R$ = ñ$ THEN 2080 


* 
* 
* 


2080 Ü = ü + í 
2090 PRINT "HOT-DOGGIES!" 
2100 RETURN 


Generating random numbers : 


100 GOSUB 500 


110 PRINT "IF MASS = "iX3" AND" 
120 PRINT "VOLUME = "Үз", DENSITY ="; 
130 INPUT R 


140 IF В = 2 THEN 200 


. 
. 
. 


500 X = INT (1000 ж RND(1) + 1)/100 
510 Y = INT (500 * RND(1) + 1)/10 
520 Z = X/Y 

530 RETURN 
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Generating random 10 DATA "GOOD" "GREAT" "HDH" 
responses 20 FOR I = 1 703 

30 READ R$(I) 

40 NEXT I 


. 


500 GOSUB 750 


LI 
. 
. 


750 X = INT(3 * RND(1) + 1) 
780 PRINT R$(X)3"!" 
770 RETURN 


5.3 A SUMMARY OF THE PURPOSES OF BASIC 
STATEMENTS 


Although there is much more to the BASIC language, the statements summarized 
in this chapter are, nonetheless, the fundamental statements used in constructing 
instructional computing programs. In essence, these statements form the foun- 
dation upon which a program author has: 

1. Some means of assigning and/or displaying values. 

2. Some means of controlling the sequence of execution. 

3. Some means of easing repetitious tasks. 


Thus, most of the BASIC statements discussed to this point may be further 
summarized into three categories: 


Assignment Control Repetition 
PRINT GOTO FOR-NEXT 

LET IF-THEN GOSUB-RETURN 
INPUT ON-GOTO 

DATA-READ 


This further generalization can be helpful in the initial design stages of pro- 
gram development. Once the category for a particular design task is identified, 
it becomes a matter of selecting the appropriate statements and defining their 
sequence of execution. 
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5.4 POSERS AND PROBLEMS 


1. Assume a program is to be designed that gives credit for a correct answer 
only if it is answered correctly on the first attempt. Outline the statements 
needed to accomplish this. 

2. Assume a program is to be designed that gives a hint on the first miss 
and the correct answer on the second miss. Outline the statements needed 
to accomplish this. 

3. Assume 5 questions are to be randomly selected from a one-dimensional 
array containing 10 questions without repetition of any question during 
a given RUN. Outline the statements needed to accomplish this. (Hint: 
See Problems 4 and 5 in Chapter 4.) 

4. Assume a program is to be designed that: 


l. Stores 15 questions, 15 answers, 15 hints, 3 positive responses, and 
3 negative responses in one-dimensional arrays. 


2. Will ask a total of 8 questions. 

3. Will randomly select each question. 

4. Will not repeat any question. 

5. Will give a random positive response if correct. 


6. Will give a random negative response and an appropriate hint for the 
first miss. 


7. Will give the correct answer on the second miss. 


8. Will give the number of correct answers at the conclusión of the 
interaction. 


Outline the statements needed to accomplish each of the above steps. 
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"The opportunities of man are limited only by his 
imagination. But so few have imagination that there 
are ten thousand fiddlers to one composer." 
—Charles F. Kettering 


“The most beaten paths are certainly the surest; but do 
not hope to scare up much game on them.” 
—André Gide 


“All that glitters is not gold.” 
—William Shakespeare 


Think About This ( for Eun) 


Read this sentence slowly: “Finished files are the result of years of scientific study 
combined with the experience of years.” Now, once and only once, count out 
loud the F's (and f's) in that sentence. How many are there? 


Think About This (Seriously) 


Should at least one course in “Computer Literacy” be required for teacher cer- 
74 tification in any area? 


Show and Tell 


6.1 OBJECTIVES 


For the successful completion of this chapter, you should be able to: 


1: 


Describe the purpose or application of instructional computing programs 
that are: 

a. problem solvers 

b. drill and practice 

c. tutorial (dialog) 

d. simulation 

e. testing 

(Sections 6.3—6.7). 


Describe in outline form the sequence of execution for each of the exam- 
ple programs or program fragments in this chapter. 75 
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6.2 SOME EXAMPLE PROGRAMS AND 
PROGRAMMING STRATEGIES 


One of the important factors determining the success or failure of a given human 
endeavor is the amount of imagination (originality, creativity, innovation, etc.) 
that goes into it. This applies not only to education in general and the instruc- 
tional process in particular but also to the use of computers in instruction (in 
general) and the successful design and development of instructional computing 
programs (in particular). 

In Chapter 8, specific steps will be discussed in which imagination will have 
an opportunity to spring forth. Before these steps are discussed, however, exam- 
ine a few sample programs and program fragments that give an introduction to 
strategies and techniques for five methods in which instructional computing may 
be applied. 

As these programs are examined, please keep in mind the quotations at the 
beginning of this chapter. These example programs are limited—by imagination 
and space. They are not meant to be the ^well-beaten path" for those who choose 
to follow one. Also, they are certainly not meant to reflect the “gold” of instruc- 
tional computing applications. However, they might plant an "imaginative seed" 
to allow one to reach heights of greater glory and reward in developing instruc- 
tional computing programs. 

Many of the examples are trivial in content. This is done intentionally because 
the content is not the point to be made: Rather, the programs illustrate some of 
the strategies that may be used in designing instructional computing programs. 
The content is left to the individual author who might use or expand upon these 
strategies. 

Although some of the examples may be related to a specific discipline, this 
should be considered only as a "illustrative vehicle." In many cases, the peda- 
gogical strategy used in the program could be applied in general, even though 
the content may be specific. 


6.2.1 A Note About REM Statements 


REM statements are very important for documenting a program listing. If 
carefully used in the program, they allow the reader to follow the sequence of 
program "events" with greater ease; their use makes the program more readable 
to the eye. For this reason, REM statements are extensively used in the following 
example programs. Hopefully, they will allow the user (particularly the begin- 
ning user) to better visualize a program's design and strategy. 

This extensive use of REM statements may give the impression that the exam- 
ple programs are overly long and complicated. This is not the case. If the REM 
statements were removed, most of the example programs would be less than 50 
to 75 statements long. Remember, then, that the REM statements are there to 
help explain the program as the listing is examined. 

It should also be mentioned that REM statements, just like any other state- 
ments, require space in the system's memory. If the memory available in a system 


is limited and the program design is lengthy, judicious use of REMs should be 
made. 

Finally, and perhaps foremost, keep in mind that many of these example 
programs may be easily modified and expanded for actual class use. The REM 
statements in the listings will help explain how to do this. 


6.3 PROBLEM-SOLVING APPLICATIONS 


The heaviest use of instructional computing to date is that of problem solving— 
writing computer programs to solve specific discipline-oriented problems. This 
particular application, for all practical purposes, has no limits. It could be finding 
the roots of a quadratic equation in mathematics, calculating lunar orbits in 
physics, solving gas-law problems in chemistry, analyzing voting behavior in 
sociology, determining circulation trends in library science, and so on. 


6.3.1 PROGRAM 9: Compound Interest 


Most, if not all, problem-solving programs are based upon some formula or 
mathematical expression. Known parameters (elements) of the expression are 
input or read from data and the solution to an unknown parameter is calculated 
and output. PROGRAM 9 illustrates a business-oriented problem related to the 
return on invested capital. The known parameters are: 

1. A given principal amount to be invested. 

2. A given interest rate. 

3. A given number of compounding periods per year. 

4 


A given number of years. 

The future value is calculated and displayed, based on the following formula: 
V = рж (1 + (І/М)) ^ (N*Y) 
where 

V = future value of the investment 

P — principal amount invested 

I — interest rate (decimal) 

N = number of times the interest rate is compounded annually 


Y = number of years the principal is invested 


Remember, in the above formula and in statement 210 of the program, the caret 
is the Apple's way to "raise to the power of.” 


RUN from disk and refer to the listing and run of PROGRAM 9. 


Show and Tell 
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JLOAD PROGRAM 9 
ILIST 


10 REM PROGRAM 9 

20 REM ========um===== 

30 REM PROBLEM SOLUING: THIS PROGRAM 
40 REM CALCULATES FUTURE UALUES OF 
50 REM INVESTMENTS. DEMOS ‘FLASH’ 

60 REM AND ‘NORMAL’ STATEMENTS. 


70 REM =============== 

80 HOME 

90 PRINT " INVESTMENT FUTURE VALUES" 
100 PRINT 


110 PRINT "ИНАТ IS THE AMOUNT INUESTED"; 
120 INPUT P 

130 PRINT "AT WHAT INTEREST RATE (%)"5 
140 INPUT I 

150 PRINT "TIMES COMPOUNDED PER YEAR"; 
180 INPUT N 

170 I = I Z 100 

180 PRINT "FOR HOW MANY YEARS" 

190 INPUT Y 


200 REM ===FORMULA FOR CALC=== 

210 U s P * (1 * (I / N)) ^ (No* YD 

220 PRINT "ITS FUTURE VALUE WOULD BE "2 
230 REM ===SET THE FLASH DISPLAY=== 
240 FLASH 

250 REM z===============z= 


260 REM MULTIPLY THE VALUE OF U BY 100; THEN 
270 REM GET THIS INTEGER VALUE; THEN DIVIDE 
280 REM BY 100. THIS GIVES А VALUE TO 2 DECIMAL 


PLACES, 
290 REM z================ 
300 PRINT "$"; INT (V ж 100) / 100 
310 REM ===SET BACK TO NORMAL DISPLAY=== 
320 NDRMAL 
330 PRINT 


340 PRINT "CALCULATE ANOTHER (Y OR N)"; 
350 INPUT ñ$ 

3680 IF A$ = "Y" THEN 100 

370 END 

IRUN PROGRAM 9 

[Clear screen] 


INVESTMENT FUTURE VALUES 


WHAT IS THE AMOUNT INVESTED?1000 
AT WHAT INTEREST RATE (1)?18.5 


TIMES COMPOUNDED PER YEAR?4 

FOR HOW MANY YEARS? 1 

ITS FUTURE VALUE WOULD BE $1175.49 
CALCULATE ANOTHER (Y OR N)?Y 


WHAT IS THE AMOUNT INVESTED?1000 
AT WHAT INTEREST RATE (%)?16.5 
TIMES COMPOUNDED PER YEAR?4 


FOR HOW MANY YEARS?20 
ITS FUTURE VALUE WOULD ВЕ %25374.71 
CALCULATE ANOTHER (Y OR N)?Y 


WHAT IS THE AMOUNT INVESTED?10000 
AT WHAT INTEREST RATE (%)?12 
TIMES COMPOUNDED PER YEAR?1 


FOR HOW MANY YEARS?20 
ITS FUTURE VALUE WOULD BE4$96462,.93 
CALCULATE ANOTHER (Y OR N) 


WHAT IS THE AMOUNT INVESTED?10000 
AT WHAT INTEREST RATE (%)?712 
TIMES COMPOUNDED PER YEAR?365 


FOR HOW MANY YEARS?20 
ITS FUTURE VALUE WOULD BE $110188.4 
CALCULATE ANOTHER (Y OR N)?N 


6.3.2 PROGRAM 10: Statistics 


The formula for the mean of a set of scores is: 
Sum of scores 
Mean 
The variance may be found from: 


Variance 


The standard deviation of a set of scores is: 


Standard deviation = Square root of variance 


~ Number of scores 


_ Sum of squared differences between mean and scores 
Number of scores 


Show and Tell 
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The Z-score may be found from: 


_ Difference of score from mean 
Standard deviation 


A program may be written to solve for these unknowns, given a set of scores. 


RUN from disk and refer to the listing and run of PROGRAM 10. 


lLOAD PROGRAM 10 
1115Т 


10 REM PROGRAM 10 

20 REM ssspupszSESSEESEZE 

30 REM PROBLEM SOLVING: THIS PROGRAM 
40 REM CALCULATES MEAN: VARIANCE,» 

50 REM STANDARD DEVIATION: AND 

60 REM 2Z-SCORES FOR А SET ОҒ 

70 REM SCORES. 


BO REM =============== 

90 REM 

100 REM m=============== 

110 REM VARIABLE DICTIONARY 

120 REM --------------- 

130 REM D - STANDARD DEVIATION 

140 REM (50. ROOT OF VARIANCE) 
150 REM Di( ) - DISTANCE OF GIVEN 
160 REM SCORE FROM MEAN 


170 REM М - MEAN OF SCORES 

180 REM S( ) - GIVEN SCORE 

190 REM T - CUMULATIVE TOTAL OF SCORES 

200 REM Ті - CUMULATIVE TOTAL OF THE SQUARE 


210 REM OF THE DISTANCE OF A GIVEN 
220 REM SCORE FROM THE MEAN 

230 REM V - VARIANCE 

240 REM z==============z= 

250 REM 

2680 DIM 5(100) ,01(100) 

270 HOME 


280 PRINT "MEAN; VARIANCE» AND STANDARD" 
280 PRINT "DEVIATION OF A SET ОҒ SCORES" 
300 PRINT 

310 PRINT "ENTER THE SCORES. TO STOP." 
320 PRINT " ENTER ANY NEGATIUE NO." 

330 REM ===ROOM FOR 100 SCORES=== 

340 FOR I = 1 TO 100 

350 PRINT "SCORE (NEGATIVE TO STOP)"; 
360 INPUT S(I) 

370 IF S(I) < 0 THEN 420 


380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 


600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 


JRUN 


REM ===CUMULATIVE SCORE TOTAL=== 
r= T + Sti) 

NEXT I 

GOTO 430 

1ї= 1-1 

PRINT 

PRINT "MEAN" , "ЧАВ" ,"SD" 

PRINT Mr ин d 

===COMPUTE THE MEAN=== 
M=T/I 

FOR J = 1 TO I 

REM My DISTANCE OF SCORE FROM MEAN=== 
D1(J) = S(J) -M 

REM ийе D A CUMULATIVE TOTAL=== 
TL - Ti DIGI * 2 

NEXT J 

REM ===COMPUTE VARIANCE=== 
V= Т1 / I 

REM ===COMPUTE STANDARD DEVIATION=== 
D = SOR (U) 

REM ===SET THE VALUES TO 2 DECIMAL PLACES=== 


PRINT INT (M * 100) / 100, INT (V * 100) / 
100, INT (D * 100) / 100 


PRINT 

PRINT " Z-SCORES" 
PRINT "SCORE" ,"Z-SCORE" 
PRINT Lp " ys ES EET " 
FOR J = 1 TO I 

REM z=z=x=z=z===uzzneuszaass s 


REM Z-SCDRE IS THE DISTANCE ОҒ А 

REM GIVEN SCORE FROM THE MEAN: 

REM DIVIDED BY THE STANDARD DEVIATION. 
REM ZEEZZZEZZZZEZZzzz 

PRINT S(J)» INT (D1(J) / D * 100) / 100 
NEXT J 

PRINT 

PRINT "ANALYZE ANOTHER SET (Y OR N)"; 
INPUT A$ 

IF A$ < > "Y" THEN 790 
T = 0 
Ti = 0 

GOTO 300 

PRINT »"BYE-BYE" 

END 


[Clear screen] 


MEAN» VARIANCE: AND STANDARD 
DEVIATION ОҒ А SET OF SCORES 


Show and Tell 
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ENTER THE SCORES. TO STOP; 
ENTER ANY NEGATIUE NO. 
SCORE (NEGATIVE TO STOP)?100 
SCORE (NEGATIVE TO STOP)?90 
SCORE (NEGATIVE TO STOP)?80 
SCORE (NEGATIVE TO STOP)?70 
SCORE (NEGATIVE TO STOP)?60 
SCORE (NEGATIVE TO STOP)?-1 


MEAN UAR SD 

80 200 14.14 
Z-SCORES 

SCORE Z-SCORE 

100 1.41 

90 (7 

80 0 

70 zs 2 

60 -1.42 


ANALYZE ANOTHER SET (Y OR N)?Y 


ENTER THE SCORES. TO STOP: 
ENTER ANY NEGATIUE NO. 
SCORE (NEGATIVE TO STOP)?88 
SCORE (NEGATIVE TO STOP)?91 
SCORE (NEGATIVE TO STOP)?77 
SCORE (NEGATIVE TO STOP)?55 
SCORE (NEGATIVE TO STOP)?93 
SCORE (NEGATIVE TO STOP)?85 
SCORE (NEGATIVE TO STOP)?70 
SCORE (NEGATIVE TO STOP)?-1 


MEAN VAR SD 

79.85 158.97 12.6 
Z-SCORES 

SCORE Z-SCORE 

88 +64 

91 .88 

77 -.23 

55 -1,98 

93 1,04 

85 +4 

70 -.79 


ANALYZE ANOTHER SET (Y OR N)?N 
BYE-BYE 


6.3.3 PROGRAM 11: File Maintenance 


One problem that teachers face is ease of access to, and updating of, student 
records. PROGRAM 11 is one approach to letting a computer program do most 
of the work (the grades still have to be entered somehow—via a keyboard in 
this case). This program is included here to serve more as a utility program that 
the reader can use than as an illustrative example because some of the statements 
are more advanced than those of Chapters 1 through 5. 

These new statements are needed to access another file, called TESTS, in 
which the record information is kept. The concept of this file is the same as that 
of DATA-READ program statements. However, the data (student records) are 
not accessed from DATA statements in the program but from the file TESTS. Use 
of such text files allows data to be updated for use in a program without having 
to rewrite or add DATA statements in the body of the program. 

The contents of TESTS are numerical data in the sequence: nl,sl, 
52,...,12,51,52,...,еїс. Here, п1 is the number of scores for the first student name 
and 51,52,... are the scores for that student; n2 is the number of scores for the 
second student name and s1,52,... are the scores for that student; and so on. An 
example might look like: 2,99,88,1,75,4,87,85,92,95,..., etc. 

PROGRAM 11 appears to be lengthy but, again, this is due to extensive use 
of REM statements to help explain the program's execution. The program may 
be easily modified for actual class use by changing the DIM and DATA statements 
to meet the user's needs and running the program RECORD INITIALIZER from 
the diskette to erase the sample data in the file TESTS. 


RUN from disk and refer to the listing and run of PROGRAM 11. 


lLOAD PROGRAM 11 
JLIST 


10 REM PROGRAM 11 

20 REM ============== 

30 REM PRDBLEM SDLVING: 

40 REM THIS PROGRAM IS AN EXAMPLE OF RECORD 
50 REM KEEPING USING SEQUENTIAL "TEXT FILES," 
BO REM FIUE STUDENT NAMES ARE DATA ELEMENTS 
70 REM ІМ THE BODY ОҒ THE PROGRAM. THE 

80 REM NUMBER OF SCORES FOR EACH STUDENT AND 
90 REM THEIR RESPECTIUE SCORES ARE STORED 

100 REM SEQUENTIALLY IN THE TEXT FILE "TESTS" 
110 REM 0М THE DISK. ТНЕ PROGRAM MAY BE USED 
120 REM FOR REAL STUDENT RECORD KEEPING BY 
130 REM CHANGING THE DIM AND DATA STATEMENTS 
140 REM ACCORDINGLY, AND THEN RUNNING THE PROGRAM 
150 REM "RECORD INITIALIZER," 


160 REM =============== 
170 REM VARIABLE DICTIONARY 
180 REM ==========z===z= 
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190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
870 
680 


REM М% - STUDENT NAME SOUGHT (VIA INPUT) 


КЕМ М%( ) - STUDENT NAMES FROM PROGRAM DATA 
REM STATEMENTS 

REM N( ) - NUMBER OF SCORES FOR EACH 

REM STUDENT (FROM FILE "TESTS") 

REM P - NUMBER OF STUDENTS (FROM PROGRAM 
REM DATA STATEMENT) 

REM S( + ) - TWO-DIM ARRAY: ROW IS STUDENT 
REM NUMBER: COLUMN IS NUMBER OF 
REM SCORES FOR THAT STUDENT 

REM CAL ICA I £ d W LS s Li Ed 


REM PROGRAM EXAMPLE DIMENSIONS FOR A 

REM MAXIMUM OF 20 STUDENTS AND 8 SCORES, 
REM CHANGE DIM IF USED IN REAL CLASS, 

REM m mummmaumaunm=muma mm 

HOME : DIM 5(20 ,8) , № (20) ,N( 20) 

PRINT "С LASS S COR E K EE P IN G" 
REM Q 1-4 31 O Y P 410—211 

REM DATA FOR NUMBER OF STUDENTS, CHANGE 
REM IF USED IN RERL CLASS. 

REM m === === 


REM zz===z=z=========s= 

REM READ THE NUMBER OF STUDENTS; THEN 
REM STORE THE NAMES IN N$( ), 

REM Peo ee UR A m masm 


REM шшш 

REM 5 STUDENT NAMES (CHANGE FOR REAL USE!) 
DATA "CANTOR" "DARWIN" ;" EDGAR" ;,"MCCARTHY" ;"ZILLA" 
REM E CIL TR AE e JC ee 

FOR I = 1 TO P 

READ N$(I) 

NEXT I 

REM шезеасашсысашташе 

REM DEFINE D$ AS CONTROL-D (RULES OF THE 
REM GAME TO ACCESS TEXT FILE "TESTS") 
REM ===z=z============ 
D$ = CHR$ (4) 

REM =============== 

REM THEN ISSUE "COMMANDS" TO OPEN THE 
REM FILE AND START READING THE DATA 

REM FROM IT. DATA ARE STORED IN THE 

REM SEQUENCE: (NUMBER OF SCORES FOR 

REM А STUDENT); (EACH SCORE FOR 

REM THAT STUDENT). N(I) IS THE NUMBER ОҒ 
REM SCORES: S(I+J) IS THE SCORE. 

REM Emus Hmm NE mE 

PRINT D$3"OPEN TESTS" 

PRINT D$3"READ TESTS" 


690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
880 
800 
810 
820 
830 
840 
850 
860 
870 
880 
880 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 


FOR I = 1 TOP 


REM ===GET THE NUMBER OF SCORES FROM FILE=== 
INPUT N(I) 
REM ===NOW GET EACH SCORE FROM FILE=== 


FOR J = 1 TO N(I) 

INPUT S(I J) 

NEXT J 

NEXT I 

PRINT D$3"CLOSE TESTS" 

REM ================ 

REM FINISHED READING DATA FROM FILE 
REM Sesrssessese2s222 

PRINT 

PRINT "DO YOU WANT TO:" 
PRINT "1, ENTER NEW SCORES" 
PRINT "2, RETRIEUE SCORES" 
PRINT "3, STOP (ENTER 1-3)"; 


INPUT C 

IF C = 1 THEN 910 

IF C - 2 THEN 810 

IF С = 3 THEN 1250 

GOTO 810 

PRINT 

PRINT "STUDENT'S NAME (OR STOP)"; 
INPUT N$ 


IF N$ - "STOP" THEN 810 
FOR I = 1 TOP 


REM ===MATCH FOUND WITH NAMES?=== 
IF N$ = N$(I) THEN 1010 
NEXT I 
PRINT N$3" IS NOT ON FILE!" 

GOTO 920 

IF C = i THEN 1190 

REM z=============== 


REM PRINT THE SCORES FOR THE STUDENT 
REM ==========znunz=== 

PRINT "SCORES FOR "3N$(1I)5":" 

FOR J = 1 TO М(1) 

PRINT 5(1,Ј) 3" "$ 


REM ===CUMULATIVE TOTAL FOR STUDENT=== 
T= Т + 5(1,)) 

NEXT J 

REM ===ILLEGAL TO DIVIDE BY ZERO--- 

IF N(I) = O THEN 1140 

PRINT " AVE = "3T / N(I) 
T = 0 

GOTO 810 

REM =======z========== 


REM ADD MORE SCORES FOR STUDENTS 
REM =======ж=======>= 
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1190 PRINT "NEXT SCORE FOR "3iN$3 


1200 REM ===INCREASE THE SCORE COUNT BY 1=== 
1210 N(I) = N(I) + 1 
1220 REM ===STORE NEW SCORE IN ARRAY=== 


1230 INPUT S(ISN(I)) 

1240 GOTO 910 

1250 PRINT 

1260 REM === TURN ON PRINTER IF WANTED=== 
1262 PRINT "USE PRINTER (Y OR N)"; 

1264 INPUT Z$ 

1266 D$ - CHR$(4) 

1268 IF Z$ = "Y" THEN PRINT D$; "PR*1" 
1270 REM z=============== 

1280 REM PRINT OUT CLASS RECORDS 


1290 REM sszzzzzszzzzzzzsc 

1300 PRINT "МАМЕ": TAB( 12) 5 "ЅСОВЕ5" 5 ТАВ( 22); 
"AUERAGE" 

1310 PRINT "----"і ТАВ( 12)5"------ "3 ТАВ( 22); 

1320 FOR I = 1 ТОР 

1330 FOR J = 1 TO N(I) 

1340 REM ===CUMULATIVE TOTAL FOR STUDENT=== 

1350 T = T + S(I J) 

1360 REM ===CUMULATIVE TOTAL FOR CLASS=== 


1370 ТА = Ti + SCIsJ 
1380 NEXT J 
1390 REM ===ILLEGAL TO DIVIDE BY ZERO=== 
1400 IF N(I) = O THEN 1430 
1410 PRINT М№МФ(1) 5 TAB( 15) 5N(1)5 TAB 
( 23)3T 7 NOT) 


1420 REM ===CUMULATIVE TOTAL SCORE NUMBER=== 
1430 51 = S1 + N(I) 

1440 T = 0 

1450 NEXT I 

1460 PRINT 


1470 PRINT "THE CLASS AVERAGE IS "Т1 / 81 
1475 IF Z$ = "Y" THEN PRINT D$; "PR#O" 
1480 REM z============z=z= 

1490 REM WRITE ALL DATA WITH UPDATES 
1500 REM BACK ON THE FILE "TESTS." 
1510 REM ===z====u======zs= 

1520 PRINT 0%5 "ОРЕМ TESTS" 

1530 PRINT 0%; "ИВІТЕ TESTS" 

1540 FOR I = 1 TO P 

1550 PRINT М(1) 

1580 FOR J = 1 TO N(I) 

1570 PRINT S(I J) 

1580 NEXT J 

1590 NEXT I 

1600 PRINT D$3"CLOSE TESTS" 


Show and Tell 


1610 PRINT " *** D Ü N E ж" 
1820 END 
IRUN 


[Clear screen] 
CLASS SCORE KEEPING 


DO YOU WANT TO: 

1. ENTER МЕМ SCORES 
2. RETRIEVE SCORES 

3. STOP (ENTER 1-3)?5 


DO YOU WANT TO: 

1. ENTER МЕМ SCORES 
2. RETRIEUE SCORES 

3. STOP (ENTER 1-3)?2 


STUDENT'S NAME (OR STOP)?ZILLA 
SCORES FOR ZILLA: 
100 50 55 AVE = 68,3333334 


STUDENT'S NAME (OR STOP)?BERGEN 
BERGEN IS NOT ON FILE! 
STUDENT'S МАМЕ (OR STOP)?CANTOR 
SCORES FOR CANTOR: 

80 77 58 81 AVE = 68,5 


STUDENT'S NAME (OR STOP) ?TOPPER 
TOPPER IS NOT ON FILE! 
STUDENT'S NAME (OR STOP) ?STOP 


DO YOU WANT TO: 

1. ENTER NEW SCORES 
2. RETRIEVE SCORES 

3, STOP (ENTER 1-3)?1 


STUDENT'S NAME (OR STOP) ?CANTOR 
NEXT SCORE FOR CANTOR?91 


STUDENT'S NAME (OR STOP)?ZILLA 
NEXT SCORE FOR ZILLA?72 


STUDENT'S NAME (OR STOP) ?STOP 


DO YOU WANT TO: 

1. ENTER NEW SCORES 

2. RETRIEVE SCORES 

3. STOP (ENTER 1-3)?3 87 
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USE PRINTER (Y OR М)? М 


NAME 
CANTOR 
DARWIN 
EDGAR 
MCCARTHY 
ZILLA 


SCORES 


AVERAGE 


THE CLASS AVERAGE IS 71.6956522 
*** DO N E «x 
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6.4 DRILL-AND-PRACTICE APPLICATIONS 


Drill-and-practice programs are second only in use to problem-solving applica- 
tions in instructional computing. This technique also has wide application in any 
area in which certain fundamental concepts require practice for mastery. This 
could be multiplication tables, chemical nomenclature, Latin-English word-root 
translations, state capitals, and so on. 

Drill-and-practice programs are generally very straightforward: An intro- 
duction, usually including examples, is given; drill questions are presented (either 
linearly or by random selection); answers are entered and checked for accuracy; 
appropriate feedback is given; the next question is asked; and, at the end of the 
program, some form of performance report is given and, perhaps, recorded. 


6.4.1 PROGRAM 12: Linear Selection of Drill Questions 


Drill programs can be easily constructed with DATA-READ and FOR-NEXT 
statements. If the questions are to be linear, the DATA consists of question- 
answer pairs on any chosen topic that are READ as part of a FOR-NEXT question 
sequence. A skeleton program might be: 


10 DATA["Question 1”,“Answer 1”,“Question 2”, etc.] 
200 PRINT "[Introductory statements, examples, etc.] " 


* 
500 FOR I - 1 TO [Number of questions to ask] 
510 READ 0%,А% 
520 PRINT Q$; 
530 INPUT R$ 
540 IF R$ - A$ THEN 570 


550 PRINT "A CORRECT ANSWER IS "jA$ 

560 GOTO 590 

570 PRINT "EXCELLENT! " 

580 C = C + 1 

590 NEXT I 

800 PRINT "YOU ANSWERED "Сз" QUESTIONS CORRECTLY!" 
810 END 


In the following program on state capitals (PROGRAM 12), note the use of 
the RND(1) function to “Пір a coin" to determine if the state or the capital is to 
be asked as a question. In the normal READ sequence (as defined in this pro- 
gram), Q$ (the question) contains the state and A$ (the answer) contains the 
capital. If the question-answer values are to be reversed, the contents of the 
variables Q$ and A$ must be switched. This is accomplished in statements 440— 
460 by the use of a dummy variable, D$, to hold the original question (value of 
Q$) as the switching process is done. 

Again, please remember that by just changing the contents of the DATA 
statements, it is possible to make the program more than just a trivial drill on 
state capitals! 


RUN from disk and refer to the listing and run of PROGRAM 12. 


JLOAD PROGRAM 12 
1115Т 


10 БЕМ PROGRAM 12 

20 REM ============z==== 

30 REM DRILL AND PRACTICE: THIS 

40 REM PROGRAM DEMOS THE LINEAR QUESTION- 
50 REM AND-ANSWER SEQUENCE VIA DATA-READ: 
60 REM PLUS SWITCHING A QUESTION FOR AN 

70 REM ANSWER AND AN ANSWER FOR A QUESTION. 
80 REM 

90 REM =g============== 

100 REM VARIABLE DICTIONARY 

110 REM I Y 3 K r Y mmm mem 

120 REM A% - ANSWER (FROM DATA-READ) 

130 REM C - NUMBER CORRECT COUNTER 

140 REM 0% - HOLDS ORIGINAL QUESTION IN 

150 REM QUESTION/ANSWER SWITCHING 

160 REM 0% - QUESTION (FROM DATA-READ) 

170 REM R$ - USER RESPONSE (VIA INPUT) 

180 REM z===========usz==== 

190 DATA "TEXAS"»"AUSTIN" , "'ARKANSAS","LITTLE ROCK" 
200 DATA "МЕМ MEXICO" "SANTA FE" +"OKLAHOMA" 
210 DATA "OKLAHOMA СІТҮ" , "ОРЕСОМ" ;"SALEM" 
220 HOME 

230 REM ===INTRODUCTION=== 
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240 
250 
260 
270 
280 
230 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
930 
540 
550 
560 
570 
580 


X 


с 


PRINT "STATE CAPITAL DRILL" 

PRINT 

PRINT "IF I GIVE THE STATE» YOU GIVE" 
PRINT "THE CAPITAL: IF I GIUE THE" 
PRINT "CAPITAL; YOU GIVE THE STATE." 


PRINT 
FOR I = 1 TO 5 
READ Q$ ñ$ 
PRINT 
REM  ---'FLIP' А COIN=== 
= INT (2 * RND (1) + 1) 
IF X = 2 THEN 480 
REM ===D0 THE SWITCH IF X IS 1=== 
REM z============== 


КЕМ HERE'S THE SWITCH... STORE Q$ IN 

REM D$ TEMPORARILY» PUT THE ANSWER IN 

REM 0% (NOM THE ANSWER IS THE QUESTION) , AND 
REM THEN GET THE ANSWER FROM D$ 

REM (NOW THE ORIGINAL QUESTION IS THE ANSWER). 


SWITCH COMPLETED=== 
NOW ASK THE QUESTION=== 
; 


IF R$ = А% THEN 540 
PRINT "A CORRECT ANSWER IS "SAS 
GOTO 560 
PRINT "GREAT!" 
=C+ti1 
NEXT I 
PRINT "YOU GOT "С" CORRECT!" 
END 


JRUN PROGRAM 12 


[Clear screen] 


STATE CAPITAL DRILL 


IF I GIVE THE STATE: YOU GIVE 
THE CAPITAL: IF I GIVE THE 
CAPITAL» YOU GIVE THE STATE, 


TEXAS?AUSTIN 
GREAT! 


ARKANSAS?LITTLE ROCK 
GREAT! 


Show and Tell 


NEW MEXICO?SACRAMENTO 
A CORRECT ANSWER IS SANTA FE 


OKLAHOMA CITY?OKLAHOMA 
GREAT! 


OREGON?PORTLAND 
A CORRECT ANSWER IS SALEM 
YOU GOT 3 CORRECT! 


IRUN 
[Clear screen] 
STATE CAPITAL DRILL 


IF I GIVE THE STATE» YOU GIVE 
THE CAPITAL’ IF I GIVE THE 
CAPITAL; YOU GIVE THE STATE: 


TEXAS?AUSTIN 
GREAT! 


ARKANSAS?LITTLE ROCK 
GREAT! 


NEM MEXICO?SANTA FE 
GREAT! 


OKLAHOMA CITY?0KLAHOMA 
GREAT! 


SALEM?0REGON 
GREAT! 
YOU GOT 5 CORRECT! 


6.4. PROGRAM 13: Random Selection of Drill Questions 


If the questions are to be randomly selected from a bank of data elements, 
the DATA are READ into one-dimensional arrays prior to presentation of the 
question sequence: 


10 DIM Q$([Number of questions іп bank]) ,4%( ),2( ) 
20 DATA [Question ”,“Апвуғег 1 ","Question 2", etc.] 


* 


160 FOR I - 1 TO [Number of questions in bank] 
170 READ Q$(I);A$(I) 
180 Z(I) = 0 91 
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190 
200 


500 
505 
510 
515 
520 
530 
540 
550 
560 
570 
580 
590 
800 
610 
620 
630 


NEXT I 
PRINT "[Introductory statements, examples, etc.]" 


FOR I = i TO [Number of questions to be asked] 
КЕМ RANDOMLY SELECT А QUESTION NUMBER 

J = INT([Number of questions in bank] *RND(1) + 1) 
REM HAS THIS NUMBER ALREADY BEEN SELECTED? 
IF Z(J) = 1 THEN 510 

Z(J) = 1 

PRINT Q$(.)3 

INPUT R$ 

IF R$ = 4$(J) THEN 590 

PRINT "А CORRECT ANSWER IS "3A$(4J) 


GOTO 610 

PRINT "GREAT!" 

С= С+1 

NEXT I 

PRINT "YOU ANSWERED" 5С 3"QUESTIONS CORRECTLY!" 
END 


Note in the example, PROGRAM 13, that only 3 of the 5 possible questions 
are randomly selected. In general, it is good practice to have approximately 2596 
more questions in the bank than are to be asked by random selection. This will 
reduce the time required for the program to find a question that has not been 
asked previously. 


RUN from disk and refer to the listing and run of PROGRAM 13. 


JLOAD PROGRAM 13 


1115Т 

10 БЕМ PROGRAM 13 

20 REM T Y Y Y SY Y 

30 REM DRILL AND PRACTICE: THIS 

40 REM PROGRAM DEMOS RANDOM SELECTION ОҒ 

50 REM QUESTIONS/ANSWERS FROM ONE-DIM ARRAYS 
60 REM WITHOUT REPEATING ANY QUESTION» PLUS 
70 REM SWITCHING THE QUESTION-ANSWER, 

80 REM =============== 

90 REM VARIABLE DICTIONARY 

100 REM =z========n====== 

110 REM A$(J) - ANSWER TO QUESTION 

120 REM 0% - HOLDS QUESTION TEMPORARILY 

130 REM IN QUES/ANSWER SWITCHING 

140 REM J - RANDOM INTEGER VALUE 

150 REM 0%(.)) - RANDOM QUESTION FROM LIST 
160 REM Z(J) - FLAG FOR SELECTED INTEGER 
170 REM z============== 

180 DIM 0$(5);54A$(5),52Z2(5) 


190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 


DATA "TEXAS" ,"AUSTIN" ;"ARKANSAS" "LITTLE 
DATA "МЕМ MEXICO" "SANTA FE","OKLAHOMA" 
DATA “OKLAHOMA CITY" ,"OREGON" ,"SALEM" 


HOME 

REM ===INTRODUCTION=== 
PRINT "STATE CAPITAL DRILL" 
PRINT 


PRINT "IF I GIVE THE STATE; YOU GIVE" 
PRINT "THE CAPITAL: IF I GIVE THE" 
PRINT "CAPITAL; YOU GIVE THE STATE." 
PRINT 

REM ===STORE THE QUESTIONS/ANSWERS=== 
FOR I = 1 705 

READ Q$(I);A$(I) 


NEXT I 

REM ===ASK ONLY 3 OF THE POSSIBLE 5=== 
FOR I = 1 TO 3 

PRINT 

REM  ---SELECT A QUESTION NUMBER=== 

J = INT (5 * RND (1) + 1) 

REM  ---HAS IT BEEN SELECTED BEFORE?=== 
IF Z(J) = 1 THEN 380 

REM ===FLAG J AS A SELECTED NUMBER=== 
Z(J) = 1 

REM 

REM ===’FLIP’ A COIN=== 


X = INT (2% RND (1) + 1) 
IF X = 2 THEN 520 


REM ===00 THE SWITCH IF X IS 1=== 
D$ = O$(J) 
Q$(J) = A$(CJ) 
A$(J) = D$ 

REM ===ASK THE QUESTION=== 

PRINT 9$(.J) 5 

INPUT R$ 


IF R$ = A$(J) THEN 570 
PRINT "А CORRECT ANSWER IS "34$(4J) 


GOTO 590 

PRINT "GREAT!" 

C=C +1 

NEXT I 

PRINT "YOU GOT "Cs" CORRECT!" 
END 


ROCK" 


Show and Tell 
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JRUN PROGRAM 13 
[Clear screen] 
STATE CAPITAL DRILL 


IF I GIVE THE STATE»; YOU GIVE 
THE CAPITAL: IF I GIUE THE 
CAPITAL; YOU GIVE THE STATE. 


SALEM?NEW MEXICO 
A CORRECT ANSWER IS OREGON 


AUSTIN?NEVADA 
A CORRECT ANSWER IS TEXAS 


NEW MEXICO? SANTA FE 
GREAT! 
YOU GOT 1 CORRECT! 


IRUN 
[Clear screen] 
STATE CAPITAL DRILL 


IF I GIVE THE STATE» YOU GIVE 
THE CAPITAL: IF I GIVE THE 
CAPITAL» YOU GIVE THE STATE, 


SANTA FE?NEW MEXICO 
GREAT! 


TEXAS?AUSTIN 
GREAT! 


OREGON?SALEM 
GREAT! 
YOU GOT 3 CORRECT! 


6.4.3 PROGRAM 14: User Options and Random Positive 
Feedback 


Use of GOSUB-RETURN routines makes development of linear drill-and- 
practice programs a simple task. The minimum needed could be: 
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Present statements for the introduction, examples, and question content: 


10 PRINT "[Introductory statements] " 
. 

. 

100 PRINT "[Presenting examples] " 


200 PRINT "[Ask question 1]' 
Assign a correct answer to a variable: 
210 A$-"[Answer to question 1]" 

Go to the answer-checking subroutine: 
220 GOSUB 10000 

Present the next question following RETURN: 
230 PRINT "[Ask question 2]" 
Assign answer to a variable: 

240 A$-"[Answer to question 2]" 

Go to the subroutine again: 

250 GUSUB 10000 


. 
. 


The subroutine allows for answer input: 
10000 INPUT R$ 

Checks for accuracy: 

10010 IF R$-4$ THEN 10040 
Presents a correct answer if missed: 
10020 PRINT "A CORRECT ANSWER IS "iA$ 
Returns to the next question: 

10030 GOTO 10060 

Gives a positive feedback if correct: 
10040 PRINT "UERY GOOD!" 
Increases a number-correct counter by 1: 
10050 C = C + 1 

And asks the next question: 

10060 RETURN 


Show and Tell 
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These statements outline a general design sequence. But, to a user, a drill- 
and-practice program that just asks a question, says "CORRECT" or "INCOR- 
RECT,” and then asks the next question can be awfully boring. However, we can 
liven up the program by giving the user some options like: SKIP (a question), 
ANSWER (to a question), and STOP (at will). We can also randomize the positive 
feedback and use the INVERSE statement for emphasis in asking a question. 
Examples of these types of additions are shown in PROGRAM 14, which is a 
drill on the parts of a sentence. 

Some comments about PROGRAM 14: Just when you thought you knew a bit 
about BASIC, along comes this program that's sooooo long! Don't tear your hair! 
Without the REM statements explaining the program's execution and the PRINT 
statements giving the introduction and examples, the program consists of only 
73 statements. The key points brought out in these 73 statements are: the use of 
subroutines for repetitive processes; control and appearance of the screen display; 
and ease of expanding a program once these processes are defined. 

Examination of the listing will show that the introduction and the sentences 
composing the questions (up to eight words per sentence) may be changed to a 
user's own choosing and that many more sentences may be added with ease. So 
relax. Carefully examine the method by which a sentence is defined (e.g., state- 
ments 710—1010) and the subroutines beginning at statements 4500 and 5000. 
These sections are the crux of comprehending this program. 


RUN from disk and refer to the listing and run of PROGRAM 14. 


11040 PROGRAM 14 
1115Т 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


PROGRAM 14 


DRILL AND PRACTICE: THIS PROGRAM 
DEMOS RANDOM POSITIVE FEEDBACK 

FROM A ONE-DIM ARRAY» GIVING 

USER OPTIONS FOR PROGRAM CONTROL» 

AND THE USE OF THE INVERSE STATEMENT 
FOR EMPHASIS IN QUESTION SEQUENCE, 
TWO SUBROUTINES ARE USED, 


A$ - ANTICIPATED CORRECT ANSWER 
C - NUMBER-CORRECT COUNTER 

F$( ) - RANDOM POSITIVE FEEDBACK 
R$ - USER INPUT 


170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
580 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 


REM H - NUMBER OF WORDS IN A GIVEN SENTENCE 
REM W$( ) - WORDS OF THE SENTENCE 

REM X - QUESTION (WORD) COUNTER 

REM Y - WORD NO. IN SENTENCE TO EMPHASIZE 


REM EZEZZEZEEZSZZZZzEazcI 

DIM F$(4) , МФ (8) 

REM ===POSITIVE FEEDBACK СНОІСЕЅ= = = 
DATA "WELL DONE" "MARVELOUS" »"THAT’S IT" »"VERY 
REM ===STORE FEEDBACK CHOICES=== 
FOR I = 1 TO 4 

READ F$(I) 

NEXT I 

REM ===GIVE THE INTRODUCTION=== 
HOME 

PRINT " INTRODUCTION" 

PRINT 


PRINT "THIS IS А SHORT DRILL ON" 
PRINT "SENTENCE STRUCTURE. I“ LL" 
PRINT "PRESENT A COMPLETE SENTENCE" 
PRINT "AND YOU ARE ASKED TO IDENTIFY" 
PRINT "EACH PART OF THAT SENTENCE ," 
PRINT "WORD BY WORD." 


REM ===USER CONTROLS WHEN TO GO=== 
PRINT "READY FOR MORE"; 
INPUT Z$ 


PRINT " ** EXAMPLE +++" 


PRINT "THE DOG BITES," 


PRINT "FIRST I’LL EMPHASIZE THE WORD 'THE'" 
PRINT "AND YOU SHOULD IDENTIFY “THE " 

PRINT "AS AN ARTICLE, NEXT I'LL" 

PRINT “EMPHASIZE THE WORD 'DOG' WHICH SHOULD" 
PRINT "BE IDENTIFIED AS THE SUBJECT." 

PRINT "FINALLY; I'LL EMPHASIZE 'BITES'" 

PRINT “WHICH SHOULD BE IDENTIFIED AS" 

PRINT "A VERB." 


PRINT "SHALL I GO ON"; 
REM ===USER CONTROLS WHEN TO GO=== 
INPUT Z$ 


PRINT "ALSO; KNOW THAT YOU MAY SKIP" 
PRINT "А QUESTION BY ENTERING ‘SKIP’ ," 
PRINT "RECEIVE А CORRECT ANSWER BY" 
PRINT "ENTERING 'ANSHER'; OR STOP AT" 
PRINT "ANYTIME BY ENTERING 'STOP'." 


GOOD" 
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870 PRINT 

680 PRINT "ARE YOU READY FOR THE" 

680 PRINT "FIRST SENTENCE" i 

700  INPUT Z$ 

710 REM =========z====== 

720 REM THE DATA CONTAINS THE WORDS 
730 REM ОҒ THE SENTENCE. ‘W’ IS THE 
740 REM NUMBER OF THE WORDS IN THE 
750 REM SENTENCE FOR THE READING LOOP, 


760 REM =====z=========== 

770 DATA "JACK" »"LOVES" "MARY," 
780 H = 3 

790 REM z============== 


800 REM GO TO THE SUBRDUTINE TO 

810 REM STORE THE WORDS IN WS( ), 

820 REM THE MAXIMUM NO. OF WORDS IS 8, 

830 REM Saeessersssssss 

840 GOSUB 4500 

850 REM zzzszsszzzszzzczz 

860 REM ASSIGN THE CORRECT ANSWER TO A$ 
870 REM AND THE WORD NUMBER IN THE SENTENCE 
880 REM TO INVERSE FOR EMPHASIS TO Y» THEN 
B90 REM GO TO THE QUES/ANSWER SUBROUTINE. 
900 REM zzzzzzzzzzzzzzz 

910 Y = 1 

920 A$ - "SUBJECT" 

930 GOSUB 5000 

940 REM ---БЕРЕАТ THE PROCESS FOR THE NEXT WORD=== 
850 Y = 2 

960 A$ = "VERB" 

970 GOSUB 5000 

980 REM ===REPEAT THE PROCESS=== 

990 Y = 3 

1000 ñ$ = "DIRECT OBJECT" 

1010 GOSUB 5000 

1020 REM z============== 

1030 REM REPEAT THE PROCESS FOR 

1040 REM THE NEXT SENTENCE 


1050 REM Eee Tee eee ee ee SY 

1060 DATA "THE", "САТ" ›, "ЅСРАТСНЕЮ" ,"МІКЕ, " 

1070 H = 4 

1080 REM ---С0 TO THE STORING SUBROUTINE=== 

1090 GOSUB 4500 

1100 REM ===ASSIGN THE ANS. AND WORD NO. TO EMPHASIZE=== 
1110 Y 1 


1120 A$ = "ARTICLE" 
1130 GOSUB 5000 
1140 Y = 2 

1150 А% - "SUBJECT" 
1180 GOSUB 5000 


1170 
1180 
1180 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
4000 
4010 
4020 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4530 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5080 


Y 2383 
A$ = "VERB" 
GOSUB 5000 
Y = Д 
A$ - "DIRECT OBJECT" 
GOSUB 5000 
REM =============z= 
REM ADDITIONAL SENTENCES MAY 
REM BE ADDED BELOW, FOLLOWING 
REM THE SAME SEQUENCE AS ABOVE, 
REM =z============s= 
PRINT 
PRINT "THAT'S ALL FOR TODAY..." 
GOTO 5540 
REM mmm mam em m mmm 
REM THE 4500 SUBROUTINE READS THE WORDS 
REM OF A GIVEN SENTENCE INTO AN 
REM ARRAY SO THAT THE SENTENCE MAY 
REM BE PRINTED LATER» WORD-BY-WORD» 
REM AND THE APPROPRIATE WORD "INUERSED." 
REM ТЯ К А 
НОМЕ 
FOR I = 1 TO H 
READ W$(I) 
NEXT I 
КЕМ ============= 
REM NOW THAT THE SENTENCE WORDS HAVE 
REM BEEN STORED; RETURN AND START 
REM THE QUESTION/ANSWER SEQUENCE, 
REM Е а 
RETURN 
REM ============== 
REM THE 5000 SUBROUTINE PRINTS THE 
REM SENTENCE HORD-BY-MHORD:; INVERSING 
REM THE WORD CORRESPONDING TO THE 
REM QUESTION. USER INPUT IS CHECKED 
REM FIRST FOR АМ ‘OPTION’ MATCH THEN 
REM FOR THE CORRECT ANSWER. RANDOM 
REM FEEDBACK IS GIVEN FOR CORRECT ANSWERS, 
REM ============= 
PRINT 
REM ===START PRINTING THE HDRDS=== 
FOR I = 1 TÜ H 
REM ===ADD 1 TO THE X COUNTER=== 
X =X +1 
REM ===IS X EQUAL TO Y? INVERSE IF 50--- 
IF X = Y THEN 5090 
PRINT HWH$(I)5" "j 
GOTO 5120 
INUERSE 
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5100 PRINT H$(I)3" "j 

5110 NORMAL 

5120 NEXT I 

5130 PRINT 

5140 PRINT 

5150 PRINT "YOUR ANSWER" 

5160 INPUT R$ 

5170 REM кисссссивввзист 

5180 REM CHECK FIRST FOR ‘OPTION’ INPUT 
5190 REM r=znz=z==z==z====== 

5200 IF R$ = "SKIP" THEN 5480 

5210 IF R$ = "ANSWER" THEN 5270 

5220 IF R$ = "STOP" THEN 5540 

5230 REM zzzzzzsessszzzszcc 

5240 REM THEN CHECK FOR А CORRECT ANSWER 
5250 REM тзспасапкниысгсс 

5280 IF R$ = ñ$ THEN 5370 

5270 PRINT "А CORRECT ANSWER IS "SAS 
5280 REM zzgsstuzsasguszccÉcs 

5290 REM HOLD THE CORRECT ANSWER UNTIL 
5300 REM THE USER IS READY TO CONTINUE. 
5310 REM z=s=sss=s==========z= 

5320 PRINT 

5330 PRINT "ARE YOU READY"; 

5340  INPUT Z$ 

5350 GOTO 5490 


5360 REM ---СЕТ A RANDOM NUMBER (4-1) === 
5370 F = INT (4 * RND (1) + 1) 

5380 REM ===PRINT THE RANDOM FEEDBACK=== 
5390 PRINT FS(F)5"!" 

5400 REM ===ADD 1 TO THE NUMBER CORRECT=== 
9410 C = C + 1 

5420 REM z=============== 


5430 REM LET THE SYSTEM "COUNT" TO 2000 SO THAT 

5440 REM THE DISPLAY HILL REMAIN 2-3 SECONDS 

5450 REM zz===z=========== 

5460 FOR K = 1 TO 2000 

5470 NEXT K 

5480 REM ===SET X TO ZERO BEFORE NEXT 
QUESTION=== 

5490 X = 0 

5500 RETURN 

5510 REM z=z============ 

5520 REM GIVE SCORE AND END PROGRAM 

5530 REM zzzzszzsuzsuzc 

5540 PRINT 

5550 PRINT "YOU GOT "Сз" CORRECT ANSWER(S)," 

5560 END 


JRUN 


[Clear screen] 
INTRODUCTION 


THIS IS А SHORT DRILL QN 
SENTENCE STRUCTURE. I' LL 
PRESENT А COMPLETE SENTENCE 
AND YOU ARE ASKED TO IDENTIFY 
EACH PART OF THAT SENTENCE» 
WORD BY WORD. 


READY FOR MORE?OK 
[Clear screen] 


*** EXAMPLE +++ 
THE DOG BITES. 


FIRST I'LL EMPHASIZE THE WORD ‘THE’ 
AND YOU SHOULD IDENTIFY ‘THE’ 

AS AN ARTICLE. NEXT I'LL 

EMPHASIZE THE WORD 'DOG' WHICH SHOULD 
BE IDENTIFIED AS THE SUBJECT, 
FINALLY; I'LL EMPHASIZE ‘BITES’ 

WHICH SHOULD BE IDENTIFIED AS 

A VERB. 


SHALL I GO ON?YES ...С0 ON 
[Clear screen] 


ALSO; KNOW THAT YOU MAY SKIP 

A QUESTION BY ENTERING 'SKIP'; 
RECEIVE A CORRECT ANSWER BY 
ENTERING ‘ANSWER’» OR STOP AT 
ANYTIME BY ENTERING ‘STOP’. 


ARE YOU READY FOR THE 
FIRST SENTENCE?YES 


[Clear screen] 
ТЫЙ LOVES MARY. 


YOUR ANSWER?ANSWER 
A CORRECT ANSWER IS SUBJECT 


ARE YOU READY?0K 
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JACK MARY. 


YOUR ANSWER?SKIP 
JACK LOVES Wild. 


YOUR ANSWER?SUBJECT 
A CORRECT ANSWER IS DIRECT OBJECT 


ARE YOU READY?OK 
[Clear screen] 
Ш САТ SCRATCHED MIKE, 


YOUR ANSWER?ARTICLE 
THAT'S IT! 


THE [SNI SCRATCHED MIKE. 


YOUR ANSHER?SUB ЈЕСТ 
VERY GOOD! 


THE CAT MIKE. 


YOUR ANSWER?VERB 
WELL DONE! 


THE CAT SCRATCHED 38 


YOUR ANSWER?DIRECT OBJECT 
VERY GOOD! 


THAT'S ALL FOR TODAY... 


YOU GOT 4 CORRECT ANSWER(S), 


6.4.4 PROGRAM 15: Random Generation of Question 
Parameters 


For drill programs using numerical values, the RND(1) function may be used 
to ensure that no two КОМ of the program are identical. That is, although the 
text of the problem may be the same, the parameters are randomly generated in 
order that each problem appears unique. As an example, consider PROGRAM 
15, which gives the base and height of a triangle and asks for the area (Area — 
1/2 base X height). 

Note: In referring to the listing of PROGRAM 15, look closely at statements 
670, 680, and 730. The Apple (and most other brands of microcomputer) will 

102 allow multiple BASIC statements per line. This means that a series of statements 


may be entered on one line. Each statement is delimited (separated) by a colon. 
From the system's standpoint, this makes more efficient use of the available 
memory. From the reader's standpoint, however, it is sometimes more difficult 
to follow the program's sequence of execution. 

In this particular program example, the multiple statements are used to illus- 
trate control of the screen display. If a user's answer is correct, the screen is first 
erased, a positive response is shown in the center of the screen, and the computer 
pauses for about 3 seconds before continuing in the instructional sequence. 


RUN from disk and refer to the listing and run of PROGRAM 15. 


ILOAD PROGRAM 15 
1115Т 


10 REM PROGRAM 15 

20 REM z============= 

30 REM DRILL AND PRACTICE: THIS 

40 REM PROGRAM DEMOS USER CONTROL OF THE 

50 REM NUMBER OF QUESTIONS TO BE ASKED 

60 REM AND USE OF RND(1) TO RANDOMLY 

70 REM GENERATE NUMBERS WITHIN LIMITS TO 

80 REM USE IN THE TEXT OF А QUESTION, 

80 REM PROGRAM ALSO DEMOS FOR THE FIRST TIME 
100 REM THE USE OF MULTIPLE STATEMENTS PER LINE 
110 REM =z==========z===s 

120 REM VARIABLE DICTIONARY 

130 REM =z============= 

140 REM А - AREA OF TRIANGLE (ANSHER) 

150 REM B - RANDOMLY SELECTED UALUE FOR 


180 REM THE 'BASE' ОҒ А TRIANGLE 
170 REM H - RANDOMLY SELECTED VALUE FOR 
180 REM THE ‘HEIGHT’ ОҒ A TRIANGLE 


190 REM P - NUMBER OF PROBLEMS SELECTED BY USER 
200 REM 5 - USER ANSWER (INPUT) 


210 REM z============= 
220 REM 
230 HDME 


240 PRINT "DRILL ON CALCULATING THE" 

250 PRINT "AREA OF A TRIANGLE" 

260 PRINT 

270 PRINT "HOW MANY PROBLEMS DO YOU WANT"; 
280 INPUT P 

290 IF Р < 1 THEN 270 

300 IF P < 11 THEN 350 

310 PRINT "THAT'S TOO MANY». KEEP" 


320 PRINT " IT TO 10 OR LESS." 
330 GOTO 270 
340 REM ===USER GOT TO DEFINE THE VALUE OF P 


(WITHIN LIMITS) === 
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350 FOR I = 1 ТОР 

360 PRINT 

370 REM zzzszszzzszzzzz 

380 REM GET RANDOM UALUES FOR THE BASE AND 
390 REM HEIGHT AND CALCULATE THE AREA, 
400 REM m=============== 

410 INT (10 * RND (1) + 1) * 5 

420 INT (15 * RND (1) + 1) * 10 
430 ñ = ,5 * B * H 

440 PRINT "THE BASE ОҒ А TRIANGLE IS" 
450 PRINT Bš" INCHES AND ITS HEIGHT" 
АБО PRINT "IS "$H5" INCHES. WHAT IS" 
470 PRINT “ITS AREA IN SQUARE INCHES"; 
480 INPUT S 


= m 
пи 


490 REM ===15 INPUT CORRECT ANSWER?=== 
500 IF A = 8 THEN 670 

510 PRINT 

520 PRINT "ND, AREA = 1/2 X BASE X HEIGHT" 
530 PRINT "= 1/2 X "Bš" X "3H 

540 PRINT "= "Аз" SQUARE INCHES" 

550 REM ===USER CONTROLS WHEN TO GO=== 


560 PRINT "READY"; 

570 INPUT Z$ 

580 GOTO 710 

590 REM ============z= 

600 REM NOH WE’LL USE MULTIPLE STATEMENTS 
610 REM ON А LINE TO: 1. ERASE THE SCREEN; 
620 REM 2. SKIP DOWN TO THE MIDDLE OF THE 
630 REM SCREEN: 3. PRINT А RESPONSES AND 
640 REM 4. HOLD THE DISPLAY WHILE THE 

B50 REM SYSTEM "COUNTS" TO 1000. 

660 REM em mc Ee emus esse 


670 HOME : FOR J = 1 TO 11: PRINT : NEXT J 

680 PRINT " PERF EC Т!": FOR J = 1 TO 
NEXT J 

690 C=C + 1 

700 REM ===CLEAR THE SCREEN THEN GO=== 


710 HOME 

720 NEXT I 

730 FOR J = 1 TO 11: PRINT : NEXT J 

740 PRINT "YOU GOT "С" CORRECT 
750 END 


JRUN 


[Clear screen] 


DRILL ON CALCULATING THE 
AREA ОҒ А TRIANGLE 


1000: 


HOW, MANY PROBLEMS DO YOU WANT?3 
/ 


THE BASE OF А TRIANGLE 15 

45 INCHES AND ITS HEIGHT 

IS 120 INCHES. ИНАТ IS 

ITS AREA IN SQUARE INCHES?2400 


М0, AREA - 1/2 BASE X HEIGHT 
- 1/2 X 45 X 120 

- 2700 SQUARE INCHES 
ВЕАрҮ?ОК 


[Clear screen] 


THE BASE OF А TRIANGLE IS 

15 INCHES AND ITS HEIGHT 

IS 80 INCHES. WHAT IS 

ITS AREA IN SQUARE INCHES?600 


[Clear screen] 
PER FEE T! 
[Clear screen] 


THE BASE OF A TRIANGLE IS 

25 INCHES AND ITS HEIGHT 

IS 30 INCHES. WHAT IS 

ITS AREA IN SQUARE INCHES?375 


[Clear screen] 
PERFECT! 
[Clear screen] 


YOU СОТ 2 CORRECT! 


6.5 TUTORIAL (DIALOG) APPLICATIONS 


An extension of the drill-and-practice application allows for more feedback to 
the user whenever difficulty is indicated. This ‘tutorial dialog" could assist the 
user in locating the specific cause of errors, provide hints, or if needed, branch 
to a separate section for detailed review. 

From an instructional computing standpoint, programs of this type are often 
the most complicated to design, are time-consuming in development, and gen- 
erally go through many stages of testing and revision. The reason is that these 
programs (if carefully and thoroughly designed) must anticipate a variety of 
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users' responses and treat them accordingly: Is the user's answer partly correct? 
Has the user indicated difficulty to the extent that a branch for review is needed? 
If the user stops in the middle of an interaction, will the program start again at 
that point for the user? Should the program record the questions/responses for 
questions missed? Because of these extensive design, development, and evalu- 
ation considerations, thorough tutorial dialog programs are not widely available. 

The examples that follow are relatively short programs that illustrate some 
programming strategies for introducing more of a “dialog” into the interaction. 
They are by no means examples of extensive tutorial dialog instructional com- 
puting programs. However, they do show some of the techniques that may be 
used in programs of this type. 


6.5.1 PROGRAM 16: Providing Hints 


Providing hints is a simple example of a tutorial program. These hints may 
be incorporated as DATA elements and READ into a one-dimensional array in 
the same fashion as questions and answers were in PROGRAM 13. In the fol- 
lowing program, a flag is set so that (arbitrarily) a hint is given on the first miss 
and the correct answer is given on the second miss (see statements 930—980). 
PROGRAM 16 illustrates this and also follows the criteria defined in Problem 4 
of Chapter 5. 


RUN from disk and refer to the listing and run of PROGRAM 16. 


JLOAD PROGRAM 16 
JLIST 


10 REM PROGRAM 16 

20 REM =============== 

30 REM TUTORIAL "DIALOG": THIS 

40 REM PROGRAM DEMOS RANDOM QUESTIONS 
50 REM WITH ONE HINT. SELECTION IS FROM 
60 REM ONE-DIM ARRAYS. DATA IS STORED 
70 REM ІМ THE SEQUENCE: 

80 REM QUESTION: ANSWER» HINT. 

S0 REM FEEDBACK FOR CORRECT AND INCORRECT 
100 REM USER RESPONSES IS ALSO RANDOMLY 
110 REM SELECTED FROM ONE-DIM ARRAYS. 


120 REM =х=дшд=ш=дшшшшшшшшшш 
130 REM VARIABLE DICTIONARY 
140 REM sszzzzszssszzszemE 


150 REM А$%( ) - ANSWER FOR QUESTION Q$( ) 

160 REM С - NUMBER-CORRECT COUNTER 

170 REM C$( ) - FEEDBACK FOR CORRECT RESPONSE 

180 REM F - FLAG FOR MISSING QUES 15Т TRY 

190 REM Н%( ) - HINT FOR QUESTION 9$( ) 

200 REM Q - COUNTER FOR NUMBER OF QUESTIONS (LOOP) 
210 REM 0%( ) - QUESTION ASKED 


220 
230 
240 
250 
280 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
860 
870 
680 
690 
700 
710 
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REM R$ - USER RESPONSE (VIA INPUT) 

REM WS$( ) - FEEDBACK FOR 1ST INCORRECT RESPONSE 
REM X - RANDOM NUMBER (15-1) 

REM 2(Х) - FLAG FOR RANDOM NUMBER X 


REM Sasssssessesses 
DIM 0%(15) ,А%(15) ,НФ(15) ,2(15) ,С%(3) ,И$(3) 
REM ===QUESTION, ANSWER» HINT DATA=== 


DATA "CAPITAL OF TEXAS" "AUSTIN" 

DATA "OL’ STEPHEN Е," 

DATA "LAST NAME OF 'BOLERO' COMPOSER" 
DATA "RAVEL" "SWEATERS CAN UN-" 

DATA "FORMULA FOR POTASSIUM FLUORIDE" 
DATA  "KF","POTASSIUM IS K" 

DATA "GOLIATH’S SLAYER" ;"DAUID" 

DATA  "SLING-SHOT" 

DATA "DANIEL WAS PLACED IN THE LION'S -?-" 
DATA "ОЕМ" "FAMILY ROOM" 

DATA "THE “В” IN BASIC" 

DATA  "BEGINNER'S" ;"NOUICE'S" 

DATA "LARGEST CITY IN JAPAN" 

DATA "TOKYO" ,"TOKEN QUESTION" 

DATA "А SYNONYM FOR PARONOMASIA" 

DATA  "PUN";"PUNSTERS USE THESE" 

DATA "DIVIDE 50 BY 1/2 AND ADD 3, ANS" 
DATA "103" ,"((50/,5) +3)" 

DATA “GEORGE WASHINGTON COULD NOT TELL A --?--" 
DATA "LIE"»"LITTLE WHITE -?-" 

DATA "THREE-TOED SLOTH" ,"AI" 

DATA "FIRST AND THIRD VOWELS" 

DATA "COOLED LAVA" , "АА" 

DATA "SOUND OF PLEASURE" 

DATA "MONTH OF THE WINTER SOLSTICE" 
DATA "DECEMBER" ,"MAKE MERRY" 

DATA  "ADAM'S ALE" »"WATER" ,"H20" 

DATA "СМ PER INCH" "2,54" ,"?,54" 

REM ==FEEDBACK FOR CORRECT/INCORRECT RESPONSE=== 
DATA "HOT-DOGGIES" "WHOOPS" 

DATA  "PERFECT","YOU'RE KIDDING" 

DATA "SENSATIONAL"+"THINK OF THIS" 

REM ==============s= 

REM STORE QUESTION, ANSWER» HINT 

REM z============== 

FOR I = 1 TO 15 

READ Q$(I):A$C(I)H$(I) 


Z(I) = 0 

NEXT I 

REM s============== 

REM STORE CORRECT: INCORRECT FEEDBACK 
REM ====z>========== 


FOR I = 1 TO 3 107 
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720 READ C$(I)H$(CI) 


730 NEXT I 

740 HOME 

750 PRINT " FUN AND GAMES" 

760 PRINT 

770 PRINT "HERE ARE 8 QUESTIONS..." 
780 REM SsScessesessecs 

790 REM ASK 8 QUESTIONS 

800 REM =============== 

810 FOR Q = 1 TO 8 

820 PRINT 

830 F = O 

840 X = INT (15 * RND (1) + 1) 

850 REM ===HAS X APPEARED BEFORE?=== 


860 IF Z(X) - 1 THEN 840 

870 Z(X) = 1 

880 PRINT 9$(X); 

890 INPUT R$ 

900 REM ===GET A RANDOM NUMBER FOR FEEDBACK=== 
910 R = INT (3 * RND (1) + 1) 

920 IF R$ = A$(X) THEN 990 


930 REM ===HAS QUESTION BEEN MISSED BEFORE?=== 
940 IF F = 1 THEN 1020 
950 F = 1 


980 PRINT МФ(В) 5"! HERE'S A HINT:" 

970 PRINT H$(X) 

980 GOTO 880 

990 PRINT C$(R);"!" 

1000€ C * 1 

1010 GOTO 1030 

1020 PRINT "А CORRECT ANSWER IS "3A$(X) 
1030 NEXT 0 

1040 PRINT 

1050 PRINT "YOU ANSWERED "Сї" CORRECTLY!" 
1060 PRINT ТАВ( 7)3"BYE-BYE,,." 

1070 END 


JRUN 
[Clear screen] 
FUN AND GAMES 
HERE ARE 8 QUESTIONS... 
LAST NAME OF 'BOLERO/ COMPOSER?BACH 
WHOOPS! HERE'S A HINT: 
SWEATERS CAN UN- 


LAST МАМЕ OF ‘BOLERO’ COMPOSER?RAVEL 
PERFECT! 
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YOU'RE KIDDING! HERE'S А HINT: 
SOUND OF PLEASURE 

COOLED LAVA?AH 

A CORRECT ANSWER IS AA 


GOLIATH’S SLAYER?DANIEL 
WHOOPS! HERE'S A HINT: 
SLING-SHOT 

GOLIATH'S SLAYER?DAUID 
HOT-DOGGIES! 


THREE-TOED SLOTH?WHO KNOWS? 
YOU’RE KIDDING! HERE’S A HINT: 
FIRST AND THIRD VOWELS 
THREE-TOED SLOTH?AI 

PERFECT! 


LARGEST CITY IN JAPAN?TOKYO 
HOT-DOGGIES! 


THE 'B' IN BASIC?BEGINNERS 
YOU'RE KIDDING! HERE'S A HINT: 
NOUICE'S 

THE “8” IN BASIC?BEGINNER'S 
PERFECT! 


GEORGE WASHINGTON COULD NOT TELL A --?--?FIB 
THINK OF THIS! HERE'S A HINT: 


LITTLE WHITE -?- 


GEORGE WASHINGTON COULD NOT TELL A --?--?STORY 
A CORRECT ANSWER IS LIE 


A SYNONYM FOR PARONOMASIA?PUN 
SENSATIONAL! 


YOU ANSWERED Б CORRECTLY! 
BYE-BYE... 


6.5.2 PROGRAM 17: Review of Missed Questions 


A simple expansion of PROGRAM 16 can be accomplished by defining two 
additional one-dimensional arrays. One will flag a question number missed, and 
the other will contain the incorrect response entered for that question (see state- 
ments 1200—1270). At the conclusion of the program, a list of missed questions, 
including the incorrect responses and a correct answer, can be displayed for 
review by the user (see statements 1640—1850). 109 
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RUN from disk and refer to the listing and run of PROGRAM 17. 


LOAD PROGRAM 17 
lLIST 


10 REM PROGRAM 17 

20 REM rz==z============= 

30 REM TUTORIAL "DIALOG": THIS 

40 REM PROGRAM IS SIMILAR TO PROGRAM 18 

50 REM BUT ADDS THE FEATURES OF IMPROVED 

60 REM SCREEN DISPLAY AND "REVIEWS" EACH 

70 REM QUESTION MISSED AT LEAST ONCE. USER 

80 REM IS ALLOMED TO SELECT THE NUMBER OF 

90 REM QUESTIONS TO BE ASKED, 

100 REM ONLY THOSE QUESTIONS ANSWERED CORRECTLY 

110 REM 0М FIRST ATTEMPT ARE COUNTED А5 OK. 

120 REM z=========z===== 

130 REM VARIABLE DICTIONARY 

140 REM muummEmmmmus eem 

150 REM А%( ) - ANSWER TO QUESTION 9$( ) 

180 REM С - NUMBER-CORRECT-1ST-TRY COUNTER 

170 REM C$( ) - FEEDBACK FOR CORRECT RESPONSE 

180 REM F - FLAG FOR MISSING QUESTION 15Т TRY 

190 REM H$( ) - HINT FOR QUESTION Q$( ) 

200 REM © - NUMBER OF QUESTIONS ASKED (VIA USER INPUT) 

210 REM 0%( ) - QUESTION ASKED 

220 REM R - RANDOM NUMBER (3-1) FOR FEEDBACK 

230 REM R$ - USER RESPONSE (VIA INPUT) 

240 REM $S$( ) - USER INCORRECT RESPONSE TO QUESTION 0%( 

250 REM И%( ) - FEEDBACK FOR 15Т INCORRECT RESPONSE 

260 REM X - RANDOM NUMBER (15-1) 

270 REM 2Z(X) - FLAG FOR RANDOM NUMBER X 

280 REM 21(Х) - FLAG FOR QUESTION NUMBER MISSED BY USER 

290 REM z============== 

300 DIM 9%(15) ,А%(15) ›НФ(15) ,5%(15) ,2(15) ›21(15) ,С%(3), 
ИФ (3) 

310 REM ===00Е5ЅТІОМ, ANSWER: HINT DATA=== 

320 DATA "LATIN FOR 'BUTTOCKS'" 

330 DATA "GLUTEUS MAXIMUS" ;"GLUTEALS" 

340 DATA "LAST МАМЕ OF ‘BOLERO’ COMPOSER" 

350 DATA "RAVEL"+"SWEATERS CAN UN-" 

360 DATA "FORMULA FOR ZINC OXIDE" 

370 DATA  "ZNO",;"ZINC IS ZN" 

380 DATA "GOLIATH’S SLAYER" +"DAVID" 

390 DATA "SLINGSHOT" 

400 DATA "DANIEL WAS PLACED IN THE LION’S -?-" 

410 DATA "РЕМ" "FAMILY ROOM" 

420 DATA "ИНАТ KEEPS THE DOCTOR AWAY" 

430 DATA "AN APPLE А DAY";"MICROCOMPUTER" 

440 DATA "WHICH IS LONGER: METER OR YARD" 


450 
460 
470 
480 
480 
500 
510 
520 
530 
540 
550 
550 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
730 
800 
810 
820 
830 
840 
850 
880 
870 
880 
890 
900 
910 
920 
930 
940 


DATA  "METER";"A METER IS 39,37 IN." 
DATA "MONTH OF THE LONGEST DAY" 
DATA "JUNE" ;"ASSUME М. HEMISPHERE" 
DATA "THE “В” IN BASIC" 

DATA  "BEGINNER'S" ;"NOUVICE'S" 

DATA "A THREE-TOED SLOTH" ,"AI" 

DATA "FIRST AND THIRD VOWELS" 

DATA "LARGEST RIVER IN THE WORLD" 
DATA "AMAZON" +"BIG-MOMMA!" 

DATA "LONGEST RIVER IN THE WORLD" 
DATA "NILE", "ñ SHADE OF GREEN" 

DATA "NORTHERN WATER BODY OF TEXAS" 
DATA “RED RIUER","RED RYDER" 

DATA "CAPITAL OF OREGON" "SALEM" 
DATA "WITCH HUNT CITY" 

DATA "‘NEW DOOR’ REARRANGED TO ONE WORD" 
DATA "ONE WORD";"IT’S ONE WORD" 

REM ==FEEDBACK FOR CORRECT/INCORRECT RESPONSE=== 
DATA "GREAT", "ÜH, SHOOT" 

DATA "SENSATIONAL" +"WHOA NOW..." 
DATA "“HOT-DOGGIES",;"LET ME HELP" 
REM EeSUSUEZARZSEEEEEÉES 

REM STORE QUESTION; ANSWER: HINT 
REM zszz============s=sz 

FOR I = 1 TO 15 

READ Q$CI) :A$CI) H$(I) 
Z(I) = 0:21(1) = O 

NEXT I 

REM msummmuuuumuusus 

REM STORE FEEDBACK FOR CORRECT/INCORRECT RESPONSE=== 
FOR I = 1 TO 3 

READ С%(1)»И%(1) 

NEXT I 

HOME : PRINT : PRINT : PRINT 

PRINT "MORE FUN AND GAMES": PRINT 


PRINT 

PRINT "HHAT'S YOUR FIRST NAME"; 

INPUT F$ 

HOME : PRINT 

PRINT 

REM ===INTRODUCTION=== 

PRINT "HELLO; "3F$;", THIS PROGRAM": PRINT 


PRINT "SHOWS SOME SIMPLE USES OF BASIC": PRINT 
PRINT "IN INSTRUCTIONAL COMPUTING. WHAT": PRINT 
PRINT "I'LL DO IS ASK SOME QUESTIONS": PRINT 
PRINT "THAT ARE 'FUN AND GAMES." IF YOU": PRINT 
PRINT "MISS ON THE FIRST TRY» I'LL GIVE": PRINT 
PRINT "A HINT. I'LL ONLY GIVE YOU TWO": PRINT 
PRINT "CHANCES TO ANSWER. AT THE END :": PRINT 
PRINT "I'LL SHOW YOU THE QUESTIONS MISSED": PRINT 
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950 

955 

860 

870 

980 

990 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1180 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 


1400 
1410 


PRINT "AND GIVE YOU YOUR SCORE." 
REM === INPUT STATEMENT CAN HAVE TEXT === 
PRINT : INPUT "READY?" 52% 
REM ===CLEAR AND CENTER ON SCREEN=== 
HOME : FOR I = 1 TO ii: PRINT : NEXT I 
PRINT "I HAVE 15 QUESTIONS AVAILABLE," 
PRINT "HOW MANY WOULD YOU LIKE": INPUT 0 
REM ===СНЕСК FOR WITHIN RANGE=== 
IF Q < 1 THEN 1050 
IF Q > 15 THEN 1050 


GOTO 1080 
PRINT "AWWW, IT HAS TO BE 1 TO 15!" 
GOTO 990 

REM ===ASK "Q" QUESTIONS=== 


FOR J = 1 TO Q 
HOME : FOR I = 1 TO 10: PRINT : NEXT I 
F = 0 


X = INT (15 * RND (1) + 1) 
КЕМ ===HAS X APPEARED BEFORE?=== 
IF Z(X) = 1 THEN 1110 
Z(X) = 1 
PRINT Q$(X)3 
INPUT R$ 
R = INT (3% RND (1) + 1) 


IF R$ - А%(Х) THEN 1360 

IF F = 1 THEN 1470 

REM ==з=шаяшшашашшышышш 

REM FOR A QUESTION THAT IS MISSED: 

REM 1. FLAG THE NUMBER OF THAT QUESTION: 
REM 2. STORE THE RESPONSE GIVEN BY THE USER 


REM ІМ 5%(Х) FOR LATER RECALL. 
REM zzzzzszzzzzzuzzc 

Z1(X) = 1 

S$(X) = R$ 

F = 1 


PRINT ИФ(В) 5"! HERE'S А HINT:" 

PRINT H$(X) 

GOTO 1150 

REM ==шпшпшшшю]шшшыиншш 

REM CLEAR THE SCREEN» CENTER THE FEEDBACK» 
REM AND HOLD IT THERE A MOMENT OR TWO, 

REM zzdzsszeusasums 

HOME : FOR I = 1 TO 11: PRINT : NEXT I 
PRINT ТАВ( 10)3C$(R)3;"!" 

FOR I = 1 TO 1000: NEXT I 


REM ===NO CREDIT GIVEN IF CORRECT 2ND 
TRY!=== 

IF F = 1 THEN 1500 
C=C +1 


1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1580 
1570 
1580 
1580 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 


GOTO 1500 

REM s=============== 

REM FLASH THE CORRECT ANSHER AND 
REM LET USER SAY HHEN TO GD, 

REM mede ur d am ES ar a at 

PRINT "А CORRECT ANSWER IS: "5 
FLASH : PRINT A$(X): NORMAL 

PRINT : INPUT "READY?" 52% 

NEXT J 

HOME : PRINT 

PRINT "YOU ANSWERED "С?" CORRECTLY" 
PRINT "ON THE FIRST TRY..." 

REM ===EVERY ANSWER CORRECT FIRST TRY?=== 
IF С < > Q THEN 1600 

PRINT 

PRINT "EX GEL L.E N T k" 

FOR I = 1 TO 3000: NEXT I 

GOTO 1860 

PRINT : PRINT 

PRINT "THE QUESTIONS MISSED AT" 
PRINT "LEAST ONCE ARE:" 

FOR І - 1 TO 5000: NEXT I 


REM LOOP THRU ALL 15 TO SEE IF A QUESTION 
REM WAS MISSED. IF MISSED: 21(1) IS 1 
REM (FROM SETTING THE FLAG AT LINE 1280) 
REM AND THE USER'S INCORRECT RESPONSE 
REM IS STORED IN S$(I). (FROM LINE 1270) 


FOR I = 1 TO 15 
HOME : PRINT : PRINT : PRINT 


REM  ---DID THE USER MISS THIS QUESTION?=== 
IF Z1(I) = O THEN 1850 

PRINT 

PRINT " QUESTION:" 

PRINT 0%(1) 

PRINT 

PRINT " YOUR ANSWER: " 

PRINT S$(1) 

PRINT 

PRINT " А CORRECT ANSWER:" 

PRINT A$(I): PRINT 

INPUT " READY?" 32$ 

NEXT I 

HOME : FOR I = 1 TO 10: PRINT =: NEXT I 
REM ===COMPUTE А PERCENTAGE SCORE=== 


PRINT "YOUR SCORE IS "3C * 100 / Qi" Z!" 
PRINT ТАВ( 5)3"BYE-BYE» "sF$ 
END 
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IRUN 


[Clear screen] 


MORE FUN AND GAMES 


WHAT‘S YOUR FIRST NAME?SAMMY 
[Clear screen] 


HELLO; SAMMY. THIS PROGRAM 

SHOWS SOME SIMPLE USES OF BASIC 

IN INSTRUCTIONAL COMPUTING. WHAT 
I'LL DO IS ASK SOME QUESTIONS 

THAT ARE ‘FUN AND GAMES.’ IF YOU 
MISS ON THE FIRST TRY: I'LL GIVE 

A HINT. 1/11. ONLY GIVE YOU TWO 
CHANCES TO ANSWER. AT THE END» 
I’LL SHOW YOU THE QUESTIONS MISSED 
AND GIVE YOU YOUR SCORE. 


READY ?0K 


[Clear screen] 


I HAVE 15 QUESTIONS AVAILABLE. 
HOW MANY WOULD YOU LIKE?0 
AWWW, IT HAS TO BE 1 TO 15! 

I HAVE 15 QUESTIONS AVAILABLE, 
HOW MANY WOULD YOU LIKE?100 
AWWW: IT HAS TO BE 1 TO 15! 

I HAVE 15 QUESTIONS AVAILABLE. 
HOW MANY WOULD YOU LIKE?3 


[Clear screen] 


LONGEST RIVER IN THE WORLD?MISSISSIPPI 
WHOA МОИ, ,,! HERE'S A HINT: 

A SHADE OF GREEN 

LONGEST RIVER IN THE WORLD?THAMES 


A CORRECT ANSWER IS: 3 NILE 
READY?YES 


[Clear screen] 
LARGEST RIVER IN THE WORLD?AMAZON 
[Clear screen] 
HOT-DOGGIES! 
[Clear screen] 


A THREE-TOED SLOTH?WHO KNOWS? 
LET ME HELP! HERE’S A HINT: 
FIRST AND THIRD VOWELS 

A THREE-TOED SLOTH?AI 


[Clear screen] 
GREAT! 


[Clear screen] 


YOU ANSWERED 1 CORRECTLY 
ON THE FIRST TRY... 


THE QUESTIONS MISSED AT 
LEAST ОМСЕ ARE: 


[Clear screen] 


QUESTION: 
А THREE-TOED SLOTH 


YOUR ANSWER: 


WHO KNOWS? 
A CORRECT ANSWER: 
Al 
READY? YES 
QUESTION: 


LONGEST RIVER IN THE WORLD 


YOUR ANSWER: 
MISSISSIPPI 


А CORRECT ANSHER: 
NILE 


READY?GO ON... 
[Clear screen] 


YOUR SCORE IS 33.3333333 4! 
BYE-BYE» SAMMY 
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6.5.3 PROGRAM 18: Model Tutorial Program with Hints 


Based upon the previous two programs, it is possible to derive a “model” 
program for a general type of tutorial interaction. For this model, a maximum 
of 50 possible questions and the presentation of two hints have been arbitrarily 
defined. The program is designed so that DATA elements corresponding to the 
number of possible questions, the number of questions to be presented, the text 
of the question, the text of the answer, and the text of the first and second hints 
are added to the program following statement 1670 (see statements 1590—1670). 

This model program shows that, once a general design has been defined, it 
is a relatively simple task to use the same program in a variety of conceptual 
applications. By adding an appropriate introduction via PRINT statements and 
DATA containing whatever content is desired, the program will ask questions, 
provide hints, and so forth, for any chosen topic. 


Refer to the listing of PROGRAM 18. 


JLOAD PROGRAM 18 


ILIST 

10 REM 
20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
70 REM 
BO REM 
90 REM 
100 REM 
110 REM 
120 REM 
130 REM 
140 REM 
150 REM 
160 REM 
170 REM 
180 REM 
190 REM 
200 REM 
210 REM 
220 REM 
230 REM 
240 REM 
250 REM 
260 REM 
270 REM 
280 REM 
290 REM 
300 REM 


PROGRAM 18 


TUTORIAL "DIALOG": THIS PROGRAM 

IS BASED ON PROGRAM 17 CONCEPTS, 
PROGRAM DEMOS HOW "MODELS" MAY BE 

BUILT SO THAT DATA CORRESPONDING TO 

QUESTIONS; ANSWERS» AND HINTS OF A 

USER’S CHOOSING MAY BE ADDED TO THE 

MODEL PROGRAM. THIS PROGRAM 
ARBITRARILY HAS FIVE CHOICES FOR 
CORRECT/INCORRECT FEEDBACK INCLUDED, 
UP TO TWO HINTS ARE GIVEN FOR EACH 
INCORRECT RESPONSE. REVIEW OF MISSED 
QUESTIONS IS GIVEN AT CONCLUSION OF 
THE PROGRAM. DATA REPRESENTING THE 
NUMBER OF QUESTIONS AVAILABLE (N1) 

AND NUMBER OF QUESTIONS TO BE ASKED (N2) 
PLUS DATA FOR QUESTION» ANSWER» НІМТІ, 
AND HINT2 ARE ADDED AFTER LINE 1670, 


A$( ) - CORRECT ANSWER 
C - NUMBER-CORRECT COUNTER 
С%( ) - RANDOM POSITIVE FEEDBACK 
F - COUNTER FOR THE NUMBER OF TIMES 
A QUESTION HAS BEEN MISSED 
H1$( ) - FIRST HINT 
H2$( ) - SECOND HINT 
Ni - TOTAL NUMBER OF QUES» ANS: HINTS 


310 
320 
330 
340 
350 
360 
370 
380 
380 
400 
410 
420 
430 
440 
450 
460 
470 
480 
480 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
800 
810 
620 
830 
640 
650 
660 
670 
680 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 


Show апа Tell 


REM TO BE READ FROM DATA 

REM М2 - NUMBER OF QUESTIONS TO ASK IN LOOP 
REM 0%( ) - QUESTION ASKED 

REM R$ - USER RESPONSE (UIA INPUT) 

REM 5%( ) - USER'S INCORRECT RESPONSE 

REM MW$( ) - RANDOM FEEDBACK FOR INCORRECT RESPONSE 
REM X - RANDOM NUMBER (М1 TO 1) 

REM Z(X) - RANDOM NUMBER SELECTION FLAG 

REM 21(Х) - FLAG FOR THE QUES. NO. MISSED 

REM z============== 

DIM 0%(50) ,А%(50) ,Н1%(50) :H2$(50) 

DIM 5%(50).2(50),»21(50) ,С%(5) sW$(5) 

REM ===FEEDBACK FOR CORRECT/INCORRECT RESPONSE=== 
DATA  "GRRREAT" "NO... THINK OF THIS" 

DATA  "FINE";"HOLD IT","PERFECT"»"NO...NOT YET" 
DATA  "HOT-DOG","LET МЕ HELP" 

DATA "МАРЧЕ 005" "THIS MAY HELP" 

REM ===STORE CORRECT» INCORRECT RESPONSES=== 
FOR I = 1 TO 5 

READ С%$ (1) ,ИФ (І) 

NEXT I 

REM z==========z==== 

REM READ THE NUMBER DF QUESTION "SETS" 

REM AVAILABLE FROM DATA AND THE NUMBER 

КЕМ ОҒ QUESTIONS TO ASK IN THE LOOP, 


REM zzzzzzzzzzzzzzzzr 
READ М1.М2 
REM ===NOW STORE QUES» ANS» НІМТІ» HINT2=== 


FOR I = 1 TO Ni 

READ Q$(I);A$CI) »H1$(1) :H2$( I) 
Z(I) = 0 
Zi(I) = 0 

NEXT I 


REM s=s========z====== 

REM INTRODUCTORY STATEMENTS MAY BE ADDED 
REM HERE UP TO LINE NUMBER 1000. 

REM =z============== 


PRINT : PRINT : PRINT 
X = INT (Ni * RND (1) + 1) 

IF Z(X) = 1 THEN 1030 
Z(X) = 1 

REM ===ñSK THE QUESTION=== 

PRINT : PRINT Q$%(X); 

INPUT R$ 
R = INT (5 * RND (1) + 1) 

IF R$ = А%(Х) THEN 1350 

HOME : FOR I = 1 TO 10: PRINT : NEXT I 117 
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1120 
1130 
1140 
1150 
1160 
1170 
1180 
1180 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1580 
1600 
1610 


REM ===FLAG QUES. NO. MISSED AND STORE RESPONSE--- 
21(Х) = 1 
S$(X) = R$ 
ЕЕЕ +1 
REM кнеззкетитетеаты 


КЕМ СІУЕ EITHER THE FIRST HINT; THE SECOND 
REM НІМТ, OR THE CORRECT ANSWER. 


ON F GOTO 1210,1240,1270 

PRINT H$(R)3"! HERE'S A HINT:" 

PRINT H1$(X) 

GOTO 1070 

PRINT W$(R) 5"! HERE'S ANOTHER HINT:" 
PRINT H2$(X) 

GOTO 1070 

PRINT "А CORRECT ANSWER IS "34$(X) 
PRINT "READY TO GO ON"; 


INPUT Z$ 
GOTO 1400 
REM zzzzzzzzzzzzzzz 


REM CLEAR» CENTER» GIVE FEEDBACK 

REM AND HOLD IT FOR A MOMENT. 

REM z============== 

HOME : FOR I = 1 TO 11: PRINT : NEXT I 
PRINT TAB( 10) 5С%(В) 5"! " 

FOR І = 1 TO 1000: NEXT I 

IF F < > O THEN 1400 


b w= Ü * 1 

NEXT Q 

HOME : FOR I = 1 TO 10: PRINT : NEXT I 
PRINT "FIRST TRY CORRECT = "iC 


IF C < > N2 THEN 1460 

PRINT “EX GEL LENT I 

GOTO 9999 

PRINT "THE ONES MISSED AT LEAST ONCE ARE:" 
FOR I = 1 TO Ni 

IF 21(1) = 0 THEN 1580 

PRINT : PRINT : PRINT 

PRINT "QUESTION: "s9$(1) 

PRINT 

PRINT "YOUR ANSWER: ":56(1) 

PRINT 

PRINT "CORRECT ANSWER: "?А%(1) 

PRINT : PRINT 

PRINT TAB( 10) 5"READY"S 

INPUT Z$ 

NEXT I 

REM ашшышшшшышшшш]шьш 

REM ADD A DATA STATEMENT HERE FOR 

REM THE NUMBER OF QUESTION "SETS" AND 


1620 REM THE NUMBER OF QUESTIONS TO BE ASKED. 

1630 REM EXAMPLE: DATA 25,15 

1640 REM THEN ADD DATA FOR THE QUESTION "SETS" 
1850 REM IN THE SEQUENCE "QUESTION"; "ANSWER" 

1660 REM "FIRST HINT" "SECOND HINT" 


1870 REM zzzzzzzzzzzz 
9999 PRINT " BYE-BYE..." 
10000 END 


6.5.4 PROGRAM 19: Model Tutorial Program with Dialog 


A tutorial program can do more than just give hints when users are having 
difficulty with a given question: It can, to some degree, approach the type of 
dialog that occurs between a tutor and a student. As an example, consider a 
question related to the chemical concept of a mole. By definition, a mole is a 
quantity of a chemical compound equal to the formula weight (FW) of that 
compound. This quantity is usually expressed in grams, but it could be any mass 
unit (ounces, tons, and so on). For a given weight of a chemical compound, the 
number of moles is determined by the following formula: 


Moles = Weight (grams)/FW (gram-formula weight) 


The following program illustrates a type of dialog that could occur in a 
tutorial instructional computing application. Note that the program makes use 
of the ABS (absolute) function to allow for a tolerance of +0.1 in the user’s 
answers (see statements 450—500 and 680). Also be reminded that this is, in 
essence, a program fragment and does not include an introduction, examples, 
random selection of positive responses, use of counters for the number correct, 
and so on. These elements should always be incorporated in programs for actual 
use in an educational setting. 


RUN from disk and refer to the listing and run of PROGRAM 19. 


110840 PROGRAM 19 
ILIST 


10 REM PROGRAM 19 

20 REM s=z=z=z=z=z==z===== 

30 REM TUTORIAL "DIALOG": THIS 

40 REM PROGRAM DEMOS MORE OF А "TUTORIAL" 

50 REM ТҮРЕ OF INTERACTION BETWEEN USER AND 

BO REM THE PROGRAM; USING THE CHEMICAL CONCEPT 
70 REM ОҒ THE "MOLE" AS AN ILLUSTRATIVE VEHICLE. 
80 REM ONLY THREE COMPOUNDS ARE USED IN 

90 REM THE EXAMPLE WITH THEIR FORMULAS AND 

100 REM FORMULA WEIGHTS STORED IN ONE-DIMENSION ARRAYS, 
110 REM USE OF THE ABS (ABSOLUTE) FUNCTION 

120 REM IS ALSO INTRODUCED. 
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130 
140 
150 
160 
170 
180 
180 
200 
210 
220 
230 
240 
250 
260 
270 
280 
280 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
580 
570 
580 
580 
600 
610 
620 


F 


REM С%( ) - CHEMICAL COMPOUND FORMULA 

REM F - FLAG FOR MISSING QUESTION 1ST TRY 
REM G - RANDOM NUMBER OF GRAMS OF COMPOUND 
REM М - NUMBER OF MOLES (GRAMS/FORMULA WT) 
REM R» R$, Ч - USER RESPONSES (VIA INPUTS) 
REM W( ) - FORMULA WEIGHT OF A COMPOUND 
REM X - RANDOM NUMBER (3 TO 1) FOR 

REM COMPOUND SELECTION 


DIM C$(3) »W(3) 

DATA "КОН" ,56 , "НЕ" 20 "КІ" +166 

REM ===STORE THE FORMULAS AND WEIGHTS=== 
FOR I = 1 1 03 

READ C$(I) ,И(І) 

NEXT I 


REM А0 Ç ат 
REM GET A RANDOM NUMBER OF GRAMS AND ñ 
REM RANDOM COMPOUND. THEN CALCULATE MOLES. 
REM sz====z=====z===z=====s= 
= INT (10 * RND (1) + 1) * 20 
= INT (3 * RND (1) + 1) 
G / W(X) 
REM ===ASK THE QUESTION=== 
PRINT 
PRINT "HOW MANY MOLES OF "3C$(X)3" ARE" 
PRINT "PRESENT IN "Сб?" GRAMS"$ 
INPUT R 
PRINT 
REM =============== 
REM USE THE ABS FUNCTION TO ACCEPT AN 
REM ANSWER THAT IS WITHIN 0,1 OF THE 
REM CORRECT ANSWER AND THE USER'S ANSWER, 


REM ee шшш ош гшщш 
IF ABS (R - M) < = ‚1 THEN 860 
REM ===GIVE ANSWER ON SECOND MISS=== 
IF F = 1 THEN 800 
= 4 
REM ===ASK FIRST STEP IN SOLUTION SEQUENCE=== 


PRINT "NO...DID YOU DIVIDE THE" 
PRINT "HEIGHT BY THE FW (Y OR М)"; 


INPUT R$ 

PRINT 

IF R$ - "Y" THEN 630 

PRINT "WELL: YOU SHOULD! TRY AGAIN." 
GOTO 400 


REM  ---CHECK FOR SECOND STEP IN SOL'N SEQUENCE=== 


830 PRINT "GOOD. THAT IS CORRECT." 

640 PRINT “WHAT VALUE DID YOU USE" 

650 PRINT "FOR THE FW OF "3C$(X)3 

660 INPUT V 

870 PRINT 

880 IF ABS (U - M(X)) < = «1 THEN 750 
690 PRINT "AHA! THIS MAY BE YOUR" 

700 PRINT "PROBLEM, THE APPROXIMATE" 
710 PRINT "FM OF "5С%(Х) 5" IS "SW(X) 

720 PRINT "NOM TRY IT AGAIN..." 

730 GOTO 400 

740 REM ===IF CORRECT TO HERE» MUST BE MATH 
750 PRINT "HMMM... THAT IS THE CORRECT" 
780 PRINT "ҒИ FOR "3C$(X)3", YOU MUST" 
770 PRINT "HAUE MADE AN ARITHMETIC" 

780 PRINT "ERROR. CHECK AND TRY AGAIN." 
790 GOTO 400 


800 PRINT 

810 REM ===SHOW THE CORRECT SOLUTION=== 
820 PRINT "MOLES = HT/FH" 

830 PRINT "= "SG5"/"5W(X) 

840 PRINT "= "j INT (M * 100) / 100 

850 GOTO 880 

8680 PRINT " EXCELLIENT Т" 

870 REM ===LET USER CONTINUE AT WILL=== 
880 PRINT 


890 PRINT "WANT ANOTHER (Y OR М)"; 
900 INPUT R$ 

910 IF R$ - "Y" THEN 310 

920 END 


JRUN 


HOM MANY MOLES OF KI ARE 
PRESENT IN 200 GRAMS?33 


NO...DID YOU DIVIDE THE 
WEIGHT BY THE FW (Y OR N)?Y 


GOOD. THAT IS CORRECT. 
WHAT VALUE DID YOU USE 
FOR THE ҒИ OF KI?56 


AHA! THIS MAY BE YOUR 
PROBLEM. THE APPROXIMATE 
FW OF KI IS 166 

NOM TRY IT АСАІМ, ,, 


HOM MANY MOLES OF KI ARE 
PRESENT IN 200 GRAMS?1.2 
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EXCELLENT! 
MANT ANOTHER (Y OR N)?Y 


HOW MANY MOLES OF HF ARE 
PRESENT IN 120 GRAMS?2 


NO...DID YOU DIVIDE THE 
WEIGHT BY THE FW (Y OR N)?N 


WELL» YOU SHOULD! TRY AGAIN. 


HOW MANY MOLES OF HF ARE 
PRESENT IN 120 GRAMS?1,5 


MOLES = WT/FW 
120/20 
6 


MANT ANOTHER (Y OR N)?Y 


HOW MANY MOLES OF KI ARE 
PRESENT ІМ 120 GRAMS?.5 


NO...DID YOU DIVIDE THE 
WEIGHT BY THE FW (Y OR N)?Y 


GOOD. THAT IS CORRECT, 
WHAT VALUE DID YOU USE 
FOR THE FW OF KI?166 


HMMM...THAT IS THE CORRECT 
FW FOR КІ. YOU MUST 

HAVE MADE AN ARITHMETIC 
ERROR. CHECK AND TRY AGAIN, 


HOW MANY MOLES OF KI ARE 
PRESENT IN 120 GRAMS?.71 


Ex CEL LENT 1 


WANT ANOTHER (Y OR N)?N 


6.6 SIMULATION APPLICATIONS 


Usually, simulation applications in instructional computing are used when it is 
important to understand a given concept but one or more of the following sit- 
122 uations apply: 


1. There are time and/or space and/or equipment limitations. 
2. The real process might place the user in a perilous situation. 


3. Review and/or practice would be beneficial prior to performing the actual 
experiment or process. 


Simulations in instructional computing are based upon models, most of which 
are mathematical in origin. In general, these programs allow a user to manipulate 
parameters and perhaps discover the effect of those manipulations. One popular 
application is in population dynamics: What happens to the population over a 
certain span of years if both the birth and death rates decrease and the female/ 
male birth ratio increases? Another application is in environmental studies: What 
happens to the water oxygen content if untreated raw sewage is dumped into a 
slow-moving stream? A fast-moving river? What is the effect of performing pri- 
mary treatment? Secondary treatment? How does temperature affect the above 
results? 

Again, the example programs discussed below are not extensive simulations; 
they do illustrate the concept of basing the design on some defined model. 


6.6.1 PROGRAM 20: Caloric Intake and Ideal Weight 


Diet and proper body weight maintenance are popular concerns in our soci- 
ety. It is well known that, by careful control of calorie intake and a good exercise 
program, weight can be lost or gained and then maintained at an “ideal” level. 

PROGRAM 20 is based upon a model which defines a woman's ideal weight 
as 100 pounds plus (or minus) 5 pounds for each inch over (or under) 5 feet in 
height. A man's ideal weight is defined as 106 pounds plus (or minus) 6 pounds 
for each inch over (or under) 5 feet in height. This weight, multiplied by an 
exercise activity factor of 12 if not active, 15 if moderately active, or 18 if very 
active, gives an approximate daily calorie count to maintain the ideal weight. A 
prediction of weight loss or gain can be made by comparing this count with an 
actual (or, in this case, simulated) daily caloric intake. 

PROGRAM 20 allows manipulation of a limited daily menu and exercise 
activity factors to examine the effects on weight control. However, its use here 
is primarily that of a simple illustration of basing a simulation on a defined model. 
Any model (within reason) can be simulated by a computer program. The most 
important step in developing the program is careful analysis of its design from 
the model. 


RUN from disk and refer to the listing and run of PROGRAM 20. 


JLOAD PROGRAM 20 
1115Т 


10 REM PROGRAM 20 DESCRIPTION 
20 REM z==================s=== 
30 REM SIMULATION: THIS PROGRAM PRESENTS А 


Show and Tell 
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40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 


REM S 
REM F 
REM T 
REM А 
REM M 
REM T 
REM 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
DIM C 
HOME 
PRINT 
PRINT 
FOR J 
HOME 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GET Z 
REM 
REM 
REM 
DATA 
DATA 
DATA 
DATA 


IMULATED (AND LIMITED!) DAILY MENU 
OR SELECTION BY А USER. BASED UPON 
HE MENU SELECTED AND THE SEX: НТ, , 
ND ACTIVITY OF THE USER» AN IDEAL 
EIGHT AND CALORIC INTAKE TO MAIN- 
AIN THAT WEIGHT IS GIVEN. FINALLY: 
A WEIGHT DIFFERENTIAL (LOSS OR GAIN) 
ASSUMING CONSISTENT CALORIC INTAKE 
IS SHOWN. BUT; THE MENU IS LIMITED! 


A - EXERCISE ACTIVITY FACTOR 

B - BASE WEIGHT 

C - CALORIES TO MAINTAIN IDEAL ИТ. 
C() - CALORIES PER FOOD PORTION 
E - TYPE OF EXERCISE 

F$() - FOOD LIST FOR MEALS 

H - HEIGHT IN INCHES 

I - IDEAL WEIGHT 

M$ - MEAL 

М - NUMBER OF THE FOOD SELECTED 
P - POUNDS (LOSS OR GAIN) 

S - SEX OF THE USER 

T - TOTAL CALORIC INTAKE 

М - WT. FACTOR/INCH FROM 5 FT. 
Z() - FLAG FOR FOOD SELECTED 


(11) sF$(11) ,2(11) 
FOR J = 1 TO 9: PRINT : NEXT J 
"A SIMULATED DAILY CALORIC INTAKE AND" 
PRINT “ ITS EFFECT ON YOUR IDEAL WEIGHT" 
1 TO 4000: NEXT J 
: PRINT : PRINT "YOU WILL BE PRESENTED A MENU FOR BREAK-" 
: PRINT "FAST: LUNCH» AND DINNER. SELECT AS MANY" 
PRINT "ITEMS FROM EACH MENU AS YOU WISH. AFTER" 
PRINT "YOUR DAILY MENU HAS BEEN COMPLETED» YOU" 
PRINT "WILL RECEIVE A SUMMARY OF YOUR CALORIC" 
: PRINT "INTAKE AND ITS EFFECT ON YOUR IDEAL WT." 
š PRINT " DEPRESS ANY КЕТ» yt 
% 


===BREAKFAST DATA=== 


"BREAKFAST" , "ВАСОМ OR SAUSAGE" ,200,"CEREAL WITH MILK" +250 
"COFFEE (BLACK)",;5,"COFFEE (WITH SUGAR)" +50 

"EGGS (2)"+100+"MILK" ,125 

"ORANGE JUICE" ,60 , "РАМСАКЕЅ" +225 


540 
550 
560 
570 
580 
580 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
воо 
810 
820 
830 
840 
850 
880 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
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DATA "SWEET ROLL" ;250,"TOAST" ,75»"MWMAFFLES" ,550 
GOSUB 1290 

REM 

REM ===LUNCH DATA=== 

REM 

DATA "LUNCH" ;"BEER";125 "BEFORE LUNCH DRINK" 115 
DATA "CHEESEBURGER" ,310 , "СОГА" +144 

DATA "COTTAGE CHEESE" +110/"CRACKERS" +75 
DATA "FRENCH FRIES" +400 "HAMBURGER" +260 
DATA "MILK" ,125 , "ТОМА FISH" ,50 

DATA "VEGETABLE OR FRUIT SALAD" 75 

GOSUB 1290 

REM 

REM ===DINNER DATA=== 

REM 

DATA "DINNER" +"APPLE (OF COURSE) PIE" 300 
DATA "BAKED POTATO" 250, "BEFORE DINNER DRINK"»115 
DATA "BEEF STEAK" +560+"BEETS" +40 

DATA "DOZEN RAW OYSTERS" ,240 "FISH" +400 
DATA "MACARONI" +85 "PEAS" +115 

DATA "TOSSED SALAD",;75;"T.U, DINNER" ,500 
GOSUB 1290 

GOSUB 1530 

PRINT "NOW; SOME PERSONAL DATA IS NEEDED..." 
FOR J = 1 TO 3000: NEXT J 

GOSUB 1530 

PRINT "ARE YOU:" 

PRINT " 1. FEMALE" 

PRINT " 2. MALE" 

PRINT "ENTER 1 OR 2"; 

INPUT S 


IF S < 1 ОК 5 > 2 THEN 830 


IF 5 = 1 THEN В = 100:W = 5: GOTO 880 
В = 106:W = 6 

GOSUB 1530 

PRINT "WHAT IS YOUR HEIGHT IN INCHES"; 
INPUT H 


IF H < 48 OR H > 84 THEN 890 
I с ((H - 60) * W) + B 


GOSUB 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
IF E 
IF E 
IF E 
IF E 


1530 

"DO YOU CONSIDER YOURSELF :" 

3 1. SEDENTARY (LITTLE EXERCISE)" 
i 2. MODERATELY ACTIVE" 

" 3. VERY ACTIVE" 

"ENTER 1, 2, OR 3": 


E 

< 1 OR E > 3 THEN 980 

= 1 THEN A = 12: GOTO 1040 

= 2 THEN A = 15: GOTO 1040 

= 3 THEN A = 18 125 
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1040 
1050 
1080 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 


1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 


Cz I*A 
HOME : PRINT ТАВ( 8) : "ЅОММАВҮ OF DATA": PRINT 
PRINT "YOUR IDEAL WEIGHT IS "$I: PRINT 
PRINT "TO MAINTAIN THAT WEIGHT YOU NEED" 
PRINT Cs" CALORIES PER DAY.": PRINT 
PRINT "YOUR DAILY CALORIC INTAKE BASED UPON" 
PRINT "THE LIMITED MENU IS "iTi" CALORIES,": PRINT 
PRINT " DEPRESS ANY K E Yo." 
GET 2% 
HOME : PRINT : PRINT : PRINT " DATA ANALYS UE BS 
P = INT ((((T - C) * 7) / 3500) * 10) / 10 
FOR J = 1 TO 4: PRINT : NEXT J 
PRINT : PRINT "IF YOU ARE CONSISTENT IN THIS CALORIC" 
PRINT : PRINT "INTAKE; YOUR WEIGHT DIFFERENTIAL WILL" 
PRINT : PRINT "BE APPROXIMATELY "5P" POUNDS/MEEK," 
PRINT : PRINT " ПЕ P R E: 8 A N Y K E vvv 
GET 2% 
GOSUB 1530 
PRINT "DO YOU WISH ANOTHER ANALYSIS (Y OR N)"; 
INPUT Z$ 
IF 2% с "Y" THEN T - 0: RESTORE : GOTO 550 
GOSUB 1530 
PRINT "MAY YOUR BODY BE BEAUTIFUL..." 
FOR J = 1 TO 4000: NEXT J: HOME 
END 
READ M$ 
FOR J = 1 TO 11: READ F$(J)»C(J): NEXT J 
HOME : PRINT ТАВ( 14) 5 М: PRINT 
PRINT " FOOD"; TAB( 28) 3"CALORIES": PRINT 
FOR J = 1 TO 11 
IF Z(J) = 0 THEN 1390 
REM 
REM ===INVERSE ITEMS SELECTED: GIVE CALORIES=== 
REM 
INVERSE : PRINT Ji", "3F$(J)3: NORMAL : PRINT ТАВ( 30)3C(.): 
GOTO 1400 
PRINT Ji", "3F$(J) 
NEXT J 
PRINT "12, CONTINUE TO NEXT SECTION..." 
PRINT : PRINT "YOUR CHOICE(S) (1 TO 12)"; 
INPUT N 
IF N < 1 OR N > 12 THEN 1420 
IF М - 12 THEN 1510 
REM 
REM ===FLAG THE NUMBER OF THE ITEM SELECTED=== 
REM 
Z(N) = 1 
T = T + C(N): GOTO 1310 
FOR J = 1 TO 11:2(J) = O: NEXT J 
RETURN 


1530 HOME : FOR J - 1 TO 8: PRINT : NEXT J 


1540 RETURN 

IRUN 

[Clear screen] 

A SIMULATED DAILY CALORIC INTAKE AND 
ITS EFFECT ON YOUR IDEAL WEIGHT 

[Clear screen] 


YOU WILL BE PRESENTED A MENU FOR BREAK- 
FAST: LUNCH» AND DINNER. SELECT AS MANY 
ITEMS FROM EACH MENU AS YOU WISH. AFTER 
YOUR DAILY MENU HAS BEEN COMPLETED, YOU 
MILL RECEIUE А SUMMARY OF YOUR CALORIC 
INTAKE AND ITS EFFECT ON YOUR IDEAL MT. 


DEPRESS ANY КЕ Ү... 
[Clear screen] 


BREAKFAST 
FOOD CALORIES 


1. BACON OR SAUSAGE 

2. CEREAL WITH MILK 

3, COFFEE (BLACK) 

4. COFFEE (WITH SUGAR) 
5. EGGS (2) 

6. MILK 

7. ORANGE JUICE 

8. PANCAKES 

9. SWEET ROLL 

10. TOAST 

11. WAFFLES 

12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)?1 


[Clear screen] 
BREAKFAST 
FOOD CALORIES 
200 


2. CEREAL WITH MILK 
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3. COFFEE (BLACK) 

4. COFFEE (МІТН SUGAR) 

5. EGGS (2) 

6. MILK 

7. ORANGE JUICE 

8, PANCAKES 

9. SWEET ROLL 

10. TOAST 

11. WAFFLES 

12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)?5 


[Clear screen] 


BREAKFAST 
FOOD CALORIES 
1, BACON OR SAUSAGE 200 


2. CEREAL WITH MILK 
3. COFFEE (BLACK) 
4, COFFEE (WITH SUGAR) 


100 
8, MILK 


7. ORANGE JUICE 

8, PANCAKES 

9. SWEET ROLL 

10, TOAST 

11. WAFFLES 

12. CONTINUE TO NEXT ЅЕСТІОМ, ,, 


YOUR CHOICE(S) (1 TO 12)?8 


[Clear screen] 


BREAKFAST 
FOOD CALORIES 
200 


2. CEREAL WITH MILK 

3. COFFEE (BLACK) 

4. COFFEE (WITH SUGAR) 

5, EGGS (2) 100 
6. MILK 125 
7. ORANGE JUICE 

8. PANCAKES 

8. SWEET ROLL 

10. TOAST 

11. WAFFLES 

12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)?7 


[Clear screen] 


BREAKFAST 
FOOD CALORIES 


200 
2. CEREAL WITH MILK 

3. COFFEE (BLACK) 

4. COFFEE (WITH SUGAR) 


5. EGGS (2) 100 
B. MILK 125 
7. ORANGE JUICE 80 


8. PANCAKES 

8. SWEET ROLL 

10, TOAST 

11. WAFFLES 

12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 122710 
[Clear screen] 


BREAKFAST 
FOOD CALORIES 


1. BACON OR SAUSAGE 200 
2. CEREAL WITH MILK 

3. COFFEE (BLACK) 

4. COFFEE (WITH SUGAR) 


EGGS (2) 100 
6. MILK 125 
ORANGE JUICE 60 
8. PANCAKES 
9. SWEET ROLL 
75 


11. WAFFLES 
12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)?12 
[Clear screen] 


LUNCH 
FOOD CALORIES 


1, BEER 

2. BEFORE LUNCH DRINK 
3. CHEESEBURGER 

4. COLA 

5. COTTAGE CHEESE 
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8. CRACKERS 

7. FRENCH FRIES 

8. HAMBURGER 

9, MILK 

10, TUNA FISH 

11. UEGETABLE OR FRUIT SALAD 
12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)?4 
[Clear screen] 
LUNCH 
FOOD CALORIES 


1. BEER 

2. BEFORE LUNCH DRINK 

3. CHEESEBURGER 

144 
5. COTTAGE CHEESE 

6. CRACKERS 

7. FRENCH FRIES 

8. HAMBURGER 

9. MILK 

10. TUNA FISH 

11. VEGETABLE OR FRUIT SALAD 
12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 122710 
[Clear screen] 
LUNCH 
FOOD CALORIES 


1. BEER 

2. BEFORE LUNCH DRINK 

3. CHEESEBURGER 

4, СОА | 144 
5. СОТТАСЕ CHEESE 

6. CRACKERS 

7. FRENCH FRIES 

8. HAMBURGER 

9, MILK 

110. TUNA FISH | 50 
11. VEGETABLE OR FRUIT SALAD 
12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)?12 


[Clear screen] 
DINNER 
FOOD CALORIES 


1. APPLE (OF COURSE) PIE 
2. BAKED POTATO 

3. BEFORE DINNER DRINK 
4. BEEF STEAK 

5. BEETS 

6. DOZEN RAW OYSTERS 

7. FISH 

8. MACARONI 

8. PEAS 

10, TOSSED SALAD 

11. T.U, DINNER 

12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)?4 
[Clear screen] 
DINNER 
FOOD CALORIES 


1. APPLE (OF COURSE) PIE 

2. BAKED POTATO 

3. BEFORE DINNER DRINK 

560 
5. BEETS 

8. DOZEN RAW OYSTERS 

7. FISH 

8. MACARONI 

9. PEAS 

10. TOSSED SALAD 

11. T.U. DINNER 

12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)?2 
[Clear screen] 
DINNER 
FOOD CALORIES 


1. APPLE (OF COURSE) PIE 


2. BAKED POTATO 250 
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3. BEFORE DINNER DRINK 


зво 
5, BEETS 

8. DOZEN RAM OYSTERS 

7. FISH 

8. MACARONI 

9, PEAS 


10, TOSSED SALAD 

11. T.U. DINNER 

12, CONTINUE TO NEXT SECTION... 
YOUR CHOICE(S) (1 TO 12)?10 


[Clear screen] 


DINNER 
FOOD CALORIES 
1. APPLE (OF COURSE) PIE 
|2. BAKED POTATO 250 
3. BEFORE DINNER DRINK 
L4, BEEF STEAK | 560 
5. BEETS 
6. DOZEN RAW OYSTERS 
7. FISH 
8. MACARONI 
8. PEAS 
|10, TOSSED SALAD | 75 


11. T.V. DINNER 
12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12971 
[Clear screen] 
DINNER 
FOOD CALORIES 


1. APPLE (OF COURSE) PIE 300 
24. BAKED POTATO 250 
3. BEFORE DINNER DRINK 

|4, BEEF STEAK] 560 
5. ВЕЕТ5 

B. DOZEN RAM OYSTERS 

7. FISH 

8. MACARONI 

9. PEAS 


10, TOSSED SALAD 75 


Show and Tell 


11, T.U, DINNER 
12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)? 12 


[Clear screen] 


NOW, SOME PERSONAL DATA IS NEEDED... 


[Clear screen] 
ARE YOU: 
1. FEMALE 


2. MALE 
ENTER 1 OR 272 


[Clear screen] 


WHAT IS YOUR HEIGHT IN INCHES?70 


[Clear screen] 

DO YOU CONSIDER YOURSELF: 
1. SEDENTARY (LITTLE EXERCISE) 
2. MODERATELY ACTIVE 


3. VERY ACTIVE 
ENTER 1» 2, OR 372 


[Clear screen] 
SUMMARY OF DATA 
YOUR IDEAL WEIGHT IS 166 


TO MAINTAIN THAT WEIGHT YOU NEED 
2490 CALORIES PER DAY. 


YOUR DAILY CALORIC INTAKE BASED UPON 
THE LIMITED MENU IS 1935 CALORIES, 


DEPRESS ANY КЕ Yous 


[Clear screen] 
DATA ANALYSIS 


IF YOU ARE CONSISTENT IN THIS CALORIC 133 
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INTAKE YOUR WEIGHT DIFFERENTIAL WILL 
BE APPROXIMATELY -1 POUNDS/WEEK. 


DEPRESS ANY КЕ Үзегез 
[Clear screen] 


DO YOU WISH ANOTHER ANALYSIS (Y OR N)?N 


[Clear screen] 
MAY YOUR BODY BE BEAUTIFUL... 


[Clear screen] 


134 


6.6.2 PROGRAM 21: Dealing a Bridge Hand 


As might be expected, one easy model to simulate is a deck of 52 cards. Our 
manipulation of the model will be limited to shuffling the deck and dealing one 
hand of 13 cards. A simulated deck may be considered as a two-dimensional 
array of 13 rows (card values) by 4 columns (suits). Two random-number gen- 
erators can pick (deal) a given row and column, respectively, defining a position 
in the array. Since the random row also defines the card value (ace, deuce, etc.) 
and the random column defines the suit (clubs, diamonds, etc.), it is simple to 
PRINT the card “dealt.” The position in the array may be flagged so that any 
dealt card will not be redealt until the deck has been “shuffled” (by reinitializing 
the array). 

PROGRAM 21 simulates dealing a bridge hand (13 cards), and then arrang- 
ing the hand by suit. This "arranging the hand by suit" introduces one example 
of a common programming strategy: sorting (see statements 880—1010). That is, 
let the program order a given list in either increasing or decreasing value. In the 
example here, the list is sorted in decreasing order by suit value (4—1) in the 
one-dimensional array S1(n). Thus, all the 4's are placed together, followed by 
all the 3's, and so on. Each suit dealt also has a card value, C1(n), where n - 
1—13, assigned with it. This value is “carried” with each suit as it is sorted. (Also 
note another use of the IF-THEN statement in statements (650—730.) 

How could the sorting routine be modified so that it would alphabetize a list 
of names input into one array, L$(n), as: 


LAST NAME(space)FIRST NAME 


and then print out the sorted (alphabetized) list? (Note: Program A662 on the 
test diskette gives one possible solution.) 


RUN from disk and refer to the listing and run of PROGRAM 21. 


Show and Tell 


JLOAD PROGRAM 21 


1115Т 

10 REM PROGRAM 21 

20 REM zssszccoasszrzccs 

ЗО REM SIMULATION: THIS 

40 REM PROGRAM DEMOS THE USE OF А 2-DIM ARRAY 

50 REM (13 ROMS BY 4 COLUMNS) TO SIMULATE 

60 REM А CARD DECK (13 CARD VALUES BY 4 SUITS); 
70 REM THIRTEEN CARDS (Е.С., А BRIDGE HAND) 

80 REM ARE RANDOMLY SELECTED FROM THE "DECK." 

90 REM А NEM USE OF THE IF-THEN STMT IS INTRODUCED 
100 REM ІМ COUNTING "HONOR" POINTS. THE "GET" 

110 REM STMT IS SHOWN AS AN ALTERNATIVE TO INPUT. 
120 REM THE FIRST EXAMPLE ОҒ А SORT IS ALSO GIUEN. 
130 REM =====z========== 

140 REM VARIABLE DICTIONARY 

150 REM s.=======nns====== 

180 REM C - CARD "VALUE" (1-13) 

170 REM С1( ) - DEALT CARD "UALUE" STORED 

180 REM FOR LATER SORTING 

190 REM С%( ) - CARD "NAME" (АСЕ, DEUCE,» ETC.) 
200 REM C( +` ) - CARD "DECK" (2-DIM ARRAY) 

210 REM P - HONOR POINT COUNTER (ACE - 4, 

220 REM KING = З, QUEEN = 2» JACK = 1) 

230 REM § - SUIT "VALUE" (1-4) 

240 REM 61( ) - DEALT CARD SUIT "VALUE" STORED 
250 REM FOR LATER SORTING 

260 REM 5%( ) - SUIT "NAME" (CLUBS; DIAMONDS, ETC.) 
270 REM zzzzzzsEsszzzmmsc 

280 DIM C(13+4) ,С%(13) ,5%(4) ,51(14) 3C1(13) 

290 REM ===CARD NAMES=== 

300 DATA  "ACE",;"DEUCE","TREY" s"FOUR" s"FIVE" ,"SIX" 
310 DATA "SEVEN" +"EIGHT" "NINE" "TEN" 

320 DATA "JACK","QUEEN" ,"KING" 

330 REM ===SUIT NAMES=== 

340 DATA "CLUBS" ,"DIAMONDS" ;"HEARTS" ;"SPADES" 

350 REM ===STORE THE CARD NAMES=== 

360 FOR I = 1 TO 13 

370 READ C$(I) 

380 NEXT I 

390 REM ===STORE THE SUIT NAMES=== 

400 FOR I = 1 TO 4 

410 READ S$(I) 

420 NEXT I 

430 НОМЕ 

440 PRINT " А SIMULATED BRIDGE HAND" 

450 PRINT 

460 REM m=z=z====nnsassnsz====== 

470 REM INITIALIZE THE ARRAY (SHUFFLE 135 
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480 
490 
500 
510 
520 C 
530 
540 
550 
580 
570 
580 


590 C 


600 


610 S 


620 
630 


REM THE CARD DECK) 


REM =============== 
FOR I = 1 TD 13 
FOR J = 1 04 
(IJ) = 0 
NEXT J 
NEXT I 
PRINT "HERE'S HOW THEY HERE DEALT:" 
PRINT 
FOR D = 1 TO 13 
REM ===PICK А CARD NAME=== 
= INT (13 * RND (1) + 1) 
REM ===РІСК A SUIT NAME=== 
= INT (4 * RND (1) + 1) 
REM ===HAS THIS CARD BEEN DEALT?=== 


IF C(C+S) = 1 THEN 590 


640 С(С,5) = 1 


650 
660 
670 
680 
690 
700 
710 
720 
730 
740 


770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 


REM =============== 


REM HERE IS А МЕМ USE OF IF-THEN STMTS: 
REM IF THE EXPRESSION IS TRUE: THEN THE 
REM VALUE OF P HILL BE INCREASED ACCORDINGLY, 


REM LX V IX WI Y E E y d шы 
IF С = 1 THEN P = P + 4 
IF C = 13 THEN P = 


GOTO 750 
GOTO 750 


Р + 3: 
IF C = 12 THEN P = P + 2: GOTO 750 
Pos 


IF C = 11 THEN P = 


REM ===STORE THE CARD NAME AND SUIT VALUES TO 
750 81(D) = 5 
760 C1(D) = C 


PRINT ТАВ( 5) 5С%(С) 5 TAB( 
NEXT D 
PRINT 


1 


SORT=== 


2)5"0F"$5 TAB( 16)5S$(S) 


PRINT "DEPRESS ANY KEY; AND I'LL" 
PRINT "ARRANGE THE HAND BY SUIT." 


REM z============== 


REM THE "GET" STATEMENT STORES THE VALUE 
REM OF ANY DEPRESSED KEY IN THE VARIABLE. 


FOR J = 2 TO 13 


900 01 = Si(J) 


910 D 
920 


2 = C1(J) 
FOR К = J - 1 TO 1 STEP - 


930 IF S1(K) > = Di THEN 980 
940 51(К + 1) = S1(K) 

950 Ci(K + 1) = C1(K) 

860 NEXT K 


970 K 


= 0 


1 
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980 S1(K + 1) = рі 

990 C1(K + 1) = D2 

1000 NEXT J 

1010 REM z========END OF SORTING===2=2=====2 
1020 PRINT TAB( 5)3"ARRANGED BY SUIT:" 


1030 PRINT 
1040 FOR I = 1 TO 13 
1050 PRINT TAB( 5) 5С%(С1(1)) 5 ТАВ( 12) 5 "ОҒ"; TAB( 18); 


5%(51(1)) 
1080 IF 51(1) = S1(I + 1) THEN 1090 
1070 REM ===SKIP А LINE BETWEEN SORTED "SUITS"=== 
1080 PRINT 


1080 NEXT I 

1100 PRINT : PRINT 

1110 PRINT "HOM MANY *H O М Ü R* POINTS " 
1120 PRINT "ARE IN THIS HAND"; 

1130 INPUT H 

1140 IF H = P THEN 1170 

1150 PRINT "I COUNT "ІРІ" HONOR POINTS!" 

1180 GOTO 1180 

1170 PRINT "GO GET “ЕМ, GOREN! THAT'S RIGHT!" 
1180 PRINT : PRINT "DEAL ANOTHER (Y OR N)"; 
1190 INPUT Z$ 

1200 IF Z$ < > "Y" THEN 1220 

1210 P = 0: HOME : GOTO 500 

1220 HOME : FOR I = 1 TO 11: PRINT : NEXT I 
1230 PRINT "MAY LIFE BE A GRAND SLAM ALWAYS FOR YOU!" 
1240 END 


JRUN 
[Clear screen] 

^ SIMULATED BRIDGE HAND 
HERE'S HOW THEY WERE DEALT: 


SEVEN OF DIAMONDS 
QUEEN OF CLUBS 
FIVE OF HEARTS 
FIVE OF DIAMONDS 
JACK OF HEARTS 
ACE OF CLUBS 
TREY OF HEARTS 
TREY OF CLUBS 
SIX OF SPADES 
SIX OF HEARTS 
EIGHT ОҒ HEARTS 
KING OF CLUBS 
TEN OF DIAMONDS 137 
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DEPRESS ANY KEY: AND I'LL 
ARRANGE THE HAND BY SUIT. 


[Clear screen] 
ARRANGED BY SUIT: 
SIX OF SPADES 


FIVE OF HEARTS 
JACK OF HEARTS 
TREY OF HEARTS 
SIX OF HEARTS 
EIGHT OF HEARTS 


SEVEN OF DIAMONDS 
FIVE OF DIAMONDS 
TEN OF DIAMONDS 


QUEEN OF CLUBS 
ACE OF CLUBS 
TREY OF CLUBS 
KING OF CLUBS 


HOW MANY ҰН O М O R* POINTS 
ARE IN THIS HAND?9 
I COUNT 10 HONOR POINTS! 


DEAL ANOTHER (Y OR N)?Y 
[Clear screen] 
HERE'S HOW THEY WERE DEALT: 


FIVE OF DIAMONDS 
FOUR OF HEARTS 
SEVEN OF CLUBS 
TREY OF SPADES 
KING OF DIAMONDS 
NINE OF DIAMONDS 
DEUCE OF HEARTS 
ACE OF CLUBS 
FIVE OF CLUBS 
FOUR OF CLUBS 
EIGHT OF CLUBS 
TEN OF SPADES 
FOUR OF SPADES 


DEPRESS ANY KEY» AND I'LL 
ARRANGE THE HAND BY SUIT. 


[Clear screen] 
ARRANGED BY SUIT: 


TREY OF SPADES 
TEN OF SPADES 
FOUR OF SPADES 


FOUR OF HEARTS 
DEUCE OF HEARTS 


FIVE OF DIAMONDS 
KING OF DIAMONDS 
NINE OF DIAMONDS 


SEVEN OF CLUBS 
ACE OF CLUBS 
FIVE OF CLUBS 
FOUR OF CLUBS 
EIGHT OF CLUBS 


HOM MANY *H 0 М 0 Кж POINTS 
ARE IN THIS HAND?7 
GO СЕТ “ЕМ, GOREN! THAT'S RIGHT! 


DEAL ANOTHER (Y OR N)?N 
[Clear screen] 


MAY LIFE ВЕ А GRAND SLAM ALWAYS FOR YOU! 


6.6.3 PROGRAM 22: Rolling a Pair of Dice 


Another easy model to simulate is rolling a pair of dice. Any die rolled will 
give a random number, 1 through 6. The sum of the two dice is the roll value. 
Given an infinite number of rolls, what number is cast most often? PROGRAM 
22 can provide a simulated, but nonetheless, accurate answer to this question 
(within roll limits). A rough plot of the percentage distribution is also shown by 
printing the number of asterisks on a line that corresponds to the integer value 
of the percentage distribution (see statements 660—700). 

An interesting effect can be seen by changing statements 690 and 710 to: 


890 INUERSE:PRINT " "j 
710 NORMAL:PRINT 


Again, the most important point in designing and developing any simulation 
is in defining the model. Once this is done, it may be possible to design a sim- 
ulation of the model. (Note: For some fun and games, but a loosely based sim- 
ulation, RUN ISLAND from the diskette.) 
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RUN from disk and refer to the listing and run of PROGRAM 22. 


11040 PROGRAM 22 
JLIST 


10 REM PROGRAM 22 

20 REM ss============s= 

30 REM SIMULATION: THIS 

40 REM PROGRAM SIMULATES ROLLING А PAIR OF DICE 
50 REM UP TO 1000 TIMES» GIVING THE DISTRIBUTION 
60 REM FOR EACH SET OF ROLLS. EXAMINATION OF 

70 REM THE PERCENTAGE DISTRIBUTION OR ITS PLOT 
80 REM МАҮ BE USED TO ILLUSTRATE THE NORMAL 

80 REM DISTRIBUTION CURVE OF THE RANDOM-NUMBER 
100 REM GENERATOR; GIVEN SUFFICIENT ROLLS, 


110 REM ============s=== 
120 REM VARIABLE DICTIDNARY 
130 REM z============== 


140 REM 01 - FIRST DIE (ОҒ А PAIR OF DICE) 
150 REM D2 - SECOND DIE 

160 REM P(.) - COUNT OF А GIVEN VALUE FOR 
170 REM А ROLL OF А PAIR OF DICE 
180 REM Р1( ) - PERCENTAGE DISTRIBUTION 
190 REM R - NUMBER ОҒ ROLLS (UIA INPUT) 
200 REM 5 - SUM OF 01 AND 02 (VALUE OF A GIVEN ROLL) 
210 REM z============== 

220 DIM Р(12) »P1(12) 

230 HOME 

240 PRINT "THIS PROGRAM SIMULATES" 

250 PRINT “ROLLING A PAIR OF DICE" 


260 REM ===INITIALIZE THE COUNT ARRAY=== 
270 FOR I = 2 TO 12 

280 P(I) = 0 

290 NEXT I 

300 PRINT 


310 PRINT “HOW MANY ROLLS"; 

320 INPUT R 

330 IF R < 1001 THEN 390 

340 PRINT "IT TAKES A WHILE TO DO MORE THAN" 

350 PRINT "1000 ROLLS...SO WHY DON'T YOU" 

360 PRINT "GIVE ME A LOWER NUMBER..." 

370 GOTO 300 

380 REM ===SHOW THE USER WE’RE DOING IT=== 

380 НОМЕ : FOR I = 1 TO 10: PRINT : NEXT I: PRINT TAB( 
T"ROLLING,.." 


400 REM ===D0 THE ROLLS=== 

410 FOR T = 1 TOR 

420 REM ===GET А RANDOM VALUE FOR EACH DIE=== 
INT (6 * RND (1) + 1) 


a 
о 
о 
о 
- 
"on 


INT (8 * RND (1) * 1) 


8) 


450 REM ===SUM THE PAIR ОҒ DICE=== 

460 8 = D1 + D2 

470 REM ===INCREASE THAT COUNT BY ONE=== 

480 P(S) = P(S) + 1 

490 NEXT T 

500 HOME 

910 PRINT "VALUE OF ROLL"; TAB( 18) 5 "СОЦМТ" 2 TAB( 30)5"%" 
520 PRINT 

530 REM ===NOW SHOW THE DISTRIBUTION=== 

540 FOR L = 2 TO 12 

$50 REM ==ROUND OFF THE PERCENTAGE VALUES=== 


560 P1(L) = INT ((P(L) + ,5) * 100 / R) 

570 PRINT ТАВ( бізі? TAB( 20)3P(L)3 TAB( 29); INT 
100 / R) * 100) / 100 

580 NEXT L 

580 PRINT 

600 PRINT "WANT TO SEE THE DISTRIBUTION" 

810 PRINT "CURVE (Y OR N)"; 

620 INPUT A$ 

630 IF A$ < > "Y" THEN 730 


640 HOME : PRINT : PRINT " PERC EN TAG E" 

650 PRINT " DISTRIBUTION": PRINT" -------- 
660 FOR I = 2 TO 12 

870 PRINT I; TAB( 4) "1"; 

880 FOR J = 1 TO P1(I) 

690 PRINT "+"; 

700 NEXT J 

710 PRINT 

720 NEXT I 


730 PRINT : PRINT "WANT ANOTHER SET OF ROLLS (Y OR N)"; 


740  INPUT A$ 
750 IF A$ = "Y" THEN 270 
780 END 


IRUN 
[Clear screen] 


THIS PROGRAM SIMULATES 
ROLLING A PAIR OF DICE 


HOW MANY ROLLS?1000000 

IT TAKES A WHILE TO DO MORE THAN 
1000 ROLLS...SO WHY DON'T YOU 
GIVE ME A LOWER NUMBER... 


HOW MANY ROLLS?50 
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[Clear screen] 


ROLLING. +, 


[Clear screen] 


VALUE OF ROLL COUNT x 
2 2 4 
3 4 8 
4 3 6 
5 6 12 
6 5 10 
7 6 12 
8 7 14 
9 10 20 
10 1 2 
11 5 10 
12 1 2 


MANT TO SEE THE DISTRIBUTION 
CURVE (Y OR N)?Y 


[Clear screen] 


HHH 
I3x33 33 ++ 
EIIITIII 
EITIITIIIZIIIIII 
522353535533 
MIIIIIIIIIIIII 

1 +++ + + ++ ы 
ІХ ы 
10 Іжжж 

11 Іжжжах ыы 

12 I*** 


(0c 0 Ul D CJ I9 


WANT ANOTHER SET OF ROLLS (Y OR N)?Y 


HOW MANY ROLLS?100 


[Clear screen] 


ROLLING, +» 


Show and Tell 


[Clear screen] 


VALUE OF ROLL COUNT x 
2 3 3 
3 5 5 
4 Ll 11 
5 15 15 
B 13 13 
7 14 14 
8 13 13 
8 7 7 
10 8 8 
11 7 7 
12 3 3 


WANT TO SEE THE DISTRIBUTION 
CURVE (Y OR N)?Y 


[Clear screen] 


Ix 

І ххх 
ТЭРЭЗЭ ЗРЗЕ ЗЕ 
Ix33G + + X x * 
ТЭЭР ЗЕ ЗЕЕ dex xxx 
Ice e ы. 
ТЭЭР 3 € (€ CE ++ 
Ice x 

10 [+++ +++ +++ 

11 жеж 

12 Іжжж 


t) c xO Q D €) N 


WANT ANOTHER SET OF ROLLS (Y OR N)?Y 
HOW MANY ROLLS?1000 
[Clear screen] 
ROLLING... 
[Clear screen] 
VALUE ОҒ ROLL COUNT X 


2 27 2.7 
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4 89 8.89 
5 100 10 

6 139 13.89 
7 165 16.5 
8 144 14.38 
8 108 10.8 
10 83 9.3 
11 55 5.5 
12 28 2.78 


МАМТ TO SEE THE DISTRIBUTION 
CURVE (Y OR N)?Y 


[Clear screen] 


I***** 

1 жЕ + 
Іле 
T3333 ыы 
LEH HHH HHH HHH 
Іле ы 
[3303  * x3 

10 Iss3exexe 

11 Iss 

12 I** 


t0 CO -J O Ul PD C). IN 


МАМТ ANOTHER SET OF ROLLS (Y OR N)?N 


6.7 TESTING 


Testing is another application similar to drill and practice, with the exception that 
no "assistance" is provided. A question is asked, user response is entered, and, 
at some point, the user's performance is indicated. 


6.7.1 PROGRAM 23: Name the Seven Dwarfs 


PROGRAM 23 is a short example of a testing program. This particular pro- 
gram tests the naming of the seven dwarfs of Snow White fame. Names are 
READ into a one-dimensional array, and then a question loop asks for one of 
those names. An internal loop searches the list of names for a match. If a match 
occurs, it is checked for being previously named (flagged). At the conclusion of 
the program, the complete list is Shown and any names in the list not given by 
144 the user are starred (*****). 


Note the use of the one-dimensional array D(n), where n — 1-7, as a flag 
that prevents double credit for the same name being entered twice. The same 
flag is also used to "star" those names not entered when the test was taken (see 
statements 600—670 and 900—940). 

Although this program tests on naming dwarfs, the program itself may be 
used as a general test program. By just changing the DIM, DATA, and introductory 
PRINT statements accordingly, the program could test naming from any chosen 
list. 


RUN from disk and refer to the listing and run of PROGRAM 23. 


JLOAD PROGRAM 23 
ILIST 


10 REM PROGRAM 23 

20 REM s=z=========== 

30 REM TESTING: THIS 

40 REM PROGRAM DEMOS SIMPLE TESTING EXERCISE 
50 REM ІМ NAMING. PROGRAM CHECKS ANY NAME INPUT 
БО REM FIRST FOR ACCURACY AND» IF OK: THEN TO 
70 REM SEE IF NAME HAS BEEN INPUT PREVIOUSLY, 
80 REM ANY NAME NOT ANSWERED IS LISTED AT THE 
90 REM CONCLUSION OF THE PROGRAM. BY CHANGING 
100 REM THE DIM» DATA; AND ALL "FOR-TO" 

110 REM STATEMENTS TO THE NUMBER OF NAMES IN 
120 REM THE LIST; THE PROGRAM MAY BE USED AS 
130 REM А MODEL FOR TESTING ANY LIST OF NAMES, 


140 REM zzzzszszcczzssz 

150 REM VARIABLE DICTIONARY 

150 REM z============== 

170 REM D( ) - FLAG FOR THE NUMBER ОҒ THE NAME 
180 REM CORRECTLY ENTERED 


190 REM D$( ) - LIST OF NAMES 

200 REM Ғ - FLAG FOR MISSING AT LEAST ONE NAME 
210 REM L - LENGTH ОҒ THE LIST (М0. ОҒ ELEMENTS) 
220 REM R - RANDOM NUMBER (4-1) 

230 REM R$(R) - POSITIUE FEEDBACK 

240 REM 5 - NUMBER CORRECT COUNTER (SCORE) 

250 REM z=z============z=z= 


260 REM ===POSITIVE FEEDBACK CHOICES=== 

270 DATA "0. Ke"“s"GREAT"»"S U РЕК" UERY 
соор" 

280 REM ===NO. OF ITEMS IN LIST=== 

280 DATA 7 

300 REM ===LIST OF ITEMS TO BE NAMED=== 

310 DATA "BASHFUL" "DOC" ,"DOPEY" ," GRUMPY" 

320 DATA "HAPPY" »"SLEEPY" »"SNEEZY" 

330 REM ===STORE THE FEEDBACK=== 

340 FOR I = 1 7 04 
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350 READ R$(I) 

380 NEXT I 

370 REM ===STORE HOW LONG THE LIST IS=== 
380 READ L 

390 REM ===STORE THE LIST OF NAMES=== 
400 FOR I = 1701 

410 READ D$(I) 

420 0(1) = 0 

430 NEXT I 

440 REM ===BEGIN THE TEST=== 

450 HOME 

460 PRINT "SNOW WHITE AND THE 7 DWARFS" 
470 PRINT 


480 PRINT "LET'S SEE IF YOU CAN NAME THEM..." 


490 FOR І - 1 TO 2000: NEXT I 
500 HOME 
510 FOR T 1 TU L 


520 FOR I = 1 TO 11: PRINT : NEXT I 

530 PRINT "NAME NUMBER "Т? 

540 INPUT R$ 

550 REM L.z===z===x======== 

580 REM GD THRU THE LIST TO CHECK FOR ñ MATCH 
570 REM z=============== 

580 FOR K = 1 TOL 

5980 IF R$ < > D$(K) THEN 750 

600 REM =z============== 

610 REM NAME INPUT MATCHES ONE IN THE LIST» BUT 
620 REM HAS IT BEEN PREUIOUSLY ENTERED? IF NOT: 
630 REM SET THE D(K) = 1, INCREASE THE SCORE 
640 REM BY 1, AND GIVE А POSITIVE RESPONSE 

650 REM szzzzzzzzszzsssmrr 

660 IF D(K) - 1 THEN 730 

670 D(K) = 1 

680 S= 5 + 1 

690 НОМЕ : FOR І = 1 TO 11: PRINT : NEXT I 

700 R = INT (4 * RNO (1) + 1): PRINT ТАВ( 5)5R$(R)5"!" 
710 FOR I = 1 TO 1000: NEXT I: HOME 

720 GOTO 810 

730 PRINT "YOU HAVE GIVEN THAT NAME BEFORE!" 

740 GOTO 710 

750 NEXT K 

760 REM z============== 

770 REM IF WE GOT THIS FAR; INPUT NAME DID 

780 REM NOT MATCH ANY NAME IN THE LIST 

790 REM zzzzszssuasszzzc 

800 PRINT "НМММ...ТНАТ”5 NOT ОМЕ, , ," : СОТО 710 
810 NEXT T 

820 PRINT : PRINT 

830 PRINT "DEPRESS ANY KEY FOR THE COMPLETE LIST"; 
840 GET Z$ 
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850 HOME 

860 PRINT 

870 PRINT ТАВ( 8)%"ТНЕ COMPLETE LIST:" 

880 FOR I = 1 TOL 

880 PRINT ТАВ( 12)3D$(1); 

900 REM ===THOSE CORRECTLY NAMED WERE "FLAGGED" (D(I) = 1) 


910 IF D(I) = 1 THEN 940 
920 PRINT " sx" 
830 F - 1: GOTO 850 


940 PRINT 

950 NEXT I 

980 PRINT 

970 IF F = 1 THEN 1010 

980 REM ===IF F IS ZERO» ALL WERE NAMED=== 


880 PRINT TAB( 6)3"*** YOU KNEW THEM ALL! жән" 

1000 GOTO 1030 

1010 PRINT ТАВ( 6) 3" (##%+%+%+ = NAME NOT LISTED!)": PRINT 

1020 REM ===SHOW THE SCORE TO ONE DECIMAL PLACE=== 

1030 PRINT "THAT'S "i INT (8 * 100 / L * 10) / 10;" 
PERCENT CORRECT!" 


1040 PRINT 

1050 PRINT "BYE-BYE FOR NOW..+AND WATCH" 
1060 PRINT " OUT FOR THOSE APPLES!" 
1070 END 

JRUN 


[Clear screen] 
SNOW WHITE AND THE 7 DWARFS 
LET'S SEE IF YOU CAN NAME THEM... 
[Clear screen] 
NAME NUMBER 1?SNEEZY 
[Clear screen] 
GREAT! 
[Clear screen] 
NAME NUMBER 2?00С 
[Clear screen] 
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[Clear screen] 
NAME NUMBER 3?GRUMPY 
[Clear screen] 
VERY GOOD! 
[Clear screen] 


NAME NUMBER 4?DUMBO 
HMMM, , . THAT'S NOT ОМЕ,.» 


[Clear screen] 
NAME NUMBER S?DOPEY 
[Clear screen] 
0. Ke! 
[Clear screen] 


NAME NUMBER 6?GRUMPY 
YOU HAVE GIUEN THAT NAME BEFORE! 


[Clear screen] 
NAME NUMBER 7?SLEEPY 
[Clear screen] 
0, К»! 
[Clear screen] 
DEPRESS ANY KEY FOR THE COMPLETE LIST 
[Clear screen] 
THE COMPLETE LIST: 
BASHFUL ***** 
DOC 
DOPEY 
GRUMPY 
HAPPY xx** 
SLEEPY 
SNEEZY 


(жжжжж = МАМЕ NOT LISTED!) 


THAT'S 71.4 PERCENT CORRECT! 


BYE-BYE FOR NOW... AND WATCH 
OUT FOR THOSE APPLES! 


6.7.2 PROGRAM 24: Multiple-Choice Questions 


PROGRAM 24 is one example of generating multiple-choice questions. Fol- 
lowing any introductory statements, PRINT statements that ask questions and 
DATA statements that provide the choices and their appropriate responses may 
be added to the program. The correct choice by number is assigned to variable 
A, and then a GOSUB transfers to a subroutine that displays the choices and 
evaluates the user's input. This sequence of PRINT (the question), DATA (for 
each choice and its response), A — (number of the correct choice), and GOSUB 
5000 may be repeated for an indefinite number of multiple-choice questions in 
the program. 

(This program arbitrarily presents only 4 choices. What would be needed to 
change the program so that 5 choices would be displayed?) 


RUN from disk and refer to the listing and run of PROGRAM 24. 


JLOAD PROGRAM 24 
ILIST 


10 REM PROGRAM 24 

20 REM szznzuusczczzsusczsszs 

30 REM TESTING: THIS 

40 REM PROGRAM DEMOS MULTIPLE-CHOICE TESTING 

50 REM USING DATA-READ TECHNIQUES. QUESTIONS 

БО REM ARE ASKED IN SEQUENCE (І,Е,, NO RANDOMIZATION). 
70 REM ALL QUESTIONS "SETS" ARE ENTERED IN THE 

80 REM PROGRAM FOLLOWING THE SEQUENCE: 


90 REM 1. PRINT STATEMENTS TO ASK THE QUESTION 
100 REM 2. DATA STATEMENTS FOR 4 CHOICES AND 
110 REM THE RESPONSE FOR EACH CHOICE 

120 REM 3, SETTING VARIABLE "A" TO THE 

130 REM NUMBER OF THE CORRECT CHOICE 

140 REM 4. GOSUB 5000 


150 REM QUESTION "SETS" ON ANY TOPIC MAY BE 
180 REM USED IN THE PROGRAM IF THIS SEQUENCE 
170 REM IS FOLLOWED. 


180 REM zzzzzzzzzzzzzzz 
190 REM VARIABLE DICTIONARY 
200 REM z=z============== 


210 REM А - CORRECT CHOICE ANSMER (1-4) 

220 REM А%( ) - А GIVEN CHOICE (READ FROM DATA) 
230 REM C - NUMBER CORRECT COUNTER 

240 REM R - USER'S ANSWER (VIA INPUT) 


Show and Tell 


149 


An Introduction to the BASIC Programming Language 


250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
500 
510 
520 
530 
540 
550 
560 
570 
580 
580 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 


750 
760 


770 


780 
790 
800 
810 
820 
830 
840 


850 


REM R$( ) - A GIVEN RESPONSE (READ FROM DATA) 
REM =кшяишшшшшышыншныш ` 

DIM A$(4) ,В% (4) 

HOME :C = O 

REM z=z============== 

REM ADD INTRODUCTORY STATEMENTS: EXAMPLES: 

REM OR WHATEVER HERE (UP TO LINE 500) 

REM Seestieee2c cases 

REM 

REM 

REM езмигпесешаешеше 

REM PRINT THE QUESTION 

REM JR E E E TX qp pg 

PRINT "THE STATE FLOWER ОҒ TEXAS IS THE:" 

REM P YY Y RK USE m ees 

REM ADD 4 DATA ELEMENT PAIRS FOR EACH 

REM CHOICE AND THE RESPONSE FOR THAT CHOICE 

REM z============== 

DATA  "BLUE-BONNET" "BEAUTIFUL; AREN'T THEY" 

DATA  "ROSE";"IT'S BY ANOTHER NAME HERE" 

DATA "DANDELION"+"BLOW IT OFF" 

DATA "MORNING GLORY" "IT AIN'T; BUT IT COULD BE" 
REM Hy et et ee | 

REM SET VARIABLE "A" TO THE CORRECT CHOICE NUMBER 
REM =============== 

ñ = 1 

REM sm============== 

REM THEN GOSUB 5000 TO PRINT THE CHOICES: 

REM GET THE ANSWER: AND THEN RESPOND TO ІТ, 

REM sees iL iE M d I e ses 

GOSUB 5000 

REM ===NEXT QUESTION SEQUENCE, ЕТС, === 

PRINT "AN EXAMPLE OF A COMPUTER OUTPUT" 

PRINT "DEVICE IS:" 

DATA "PRINTER" "YES, BUT THERE WAS ANOTHER IN THE 
LIST" 

DATA "KEYBOARD" ,"ТНАТ'5 AN INPUT DEVICE!" 

DATA "TERMINAL SCREEN";"YES; BUT THERE IS A BETTER 
CHOICE" 

DATA "1. AND З, ABOUE";"O.K.. . THEY ARE 2 COMMON 
EXAMPLES" 
А = 4 

GOSUB 5000 

REM ===NEXT QUESTION SEQUENCE, ETC,=== 

PRINT "ИНІСН PLANET IS EARTH" 

PRINT "FROM THE SUN?" 

DATA "FIRST", "THAT'S MERCURY" 

DATA  "SECOND";"'TIS UENUS; ABOUT DE MILO FROM THE 
SUN!" 

DATA "THIRD" ;"RIGHT...YOU'RE A TERROR FARMER" 


880 

870 

880 

890 

900 

910 

920 

930 

4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 


DATA  "FOURTH","MAR-CY» THAT'S MARS" 

= 3 
GOSUB 5000 
REM m==z=z============ 
REM ROOM TO ADD MANY MORE QUESTION "SETS" 
REM FOLLOWING THE SEQUENCE OF: 
REM PRINT» DATA: A = +> GOSUB 
REM ===========s=== 

REM 

REM 

REM ыешааыышашыалтананаа алаға 

REM IT’S ОК TO HAVE THE ‘END’ STATEMENT 
REM ** NOT ** AS THE LAST STATEMENT! 

REM саше шша 

PRINT : PRINT "YOU ANSWERED "5С 5" CORRECTLY!" 
END 

REM i et E а 

REM SUBROUTINE TO DISPLAY THE CHOICES; STORE 
REM THE RESPONSE FOR EACH CHOICE: AND 
REM GET THE INPUT FOR CHECKING 

REM SseSsSstasessses 

PRINT 

REM L=z=z============ К 

REM READ THE DATA FOR THE CHOICE AND 

REM ITS RESPONSE: PRINT THE CHOICE 

REM =m============== 

FOR I = 1 TO 4 

READ A$(CI)SR$(CI) 

PRINT Is", "$A$(I) 


PRINT 

NEXT I 

PRINT 

PRINT "YOUR CHOICE (1-4) "; 

INPUT R 

REM ===СНЕСК FOR WITHIN RANGE=== 

IF R < 1 THEN 5110 

IF R > 4 THEN 5110 

PRINT 

REM ===PRINT THE RESPONSE FOR USER'S CHOICE=== 


PRINT R$(R)5"1I" 


REM ===IS IT THE CORRECT CHOICE?=== 
IF A = R THEN 5300 
REM zzssmuzsssssezs 


REM IF THE USER'S CHOICE IS NOT CORRECT» 
REM PRINT THE CORRECT CHOICE NUMBER 

REM AND THE CHOICE LISTED 

REM =============== 

PRINT 

PRINT "A CORRECT CHOICE IS "$43".,: "5А$(А) 
GOTO 5320 
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5280 REM ===INCREASE А NUMBER-CORRECT COUNTER== 
5300 C = C + 1 

5310 REM ===LET THE USER SAY WHEN TO GO ON=== 
5320 PRINT 


5330 PRINT "DEPRESS ANY KEY TO CONTINUE..." 
5340 GET Z$ 

5350 HOME 

5360 REM ===RETURN FOR THE NEXT QUESTION=== 
5370 RETURN 


JRUN PROGRAM 24 
[Clear screen] 


THE STATE FLOWER OF TEXAS IS THE: 
1, BLUE-BONNET 

2. ROSE 

3. DANDELION 

4. MORNING GLORY 

YOUR CHOICE (1-4)?2 

IT'S BY ANOTHER NAME HERE! 

А CORRECT CHOICE IS 1,: BLUE-BONNET 


DEPRESS ANY KEY TO CONTINUE... 
[Clear screen] 


АМ EXAMPLE OF А COMPUTER OUTPUT 


DEVICE IS: 
1. PRINTER 
2. KEYBOARD 


3. TERMINAL SCREEN 


4. 1. AND 3. ABOVE 


YOUR CHOICE (1-4)?2 


THAT'S АМ INPUT DEVICE! ! 


^ CORRECT CHOICE IS 4.: 1. AND 3. АВОУЕ 


DEPRESS ANY KEY TO CONTINUE... 


Show and Tell 
[Clear screen] 


WHICH PLANET IS EARTH 
FROM THE SUN? 


1. FIRST 
2. SECOND 
3. THIRD 


4. FOURTH 


YOUR CHOICE (1-4)?2 
'TIS VENUS; ABOUT DE MILO FROM THE SUN! 
А CORRECT CHOICE IS 3.: THIRD 


DEPRESS ANY KEY TO CONTINUE... 


[Clear screen] 


YOU ANSWERED 0 CORRECTLY! 


6.8 THE KEYWORD SUBROUTINE 


Up to this point, a variety of instructional computing program examples and 
models have been presented. These programs illustrate some of the major con- 
cepts, strategies, and techniques that may be used in program design. However, 
one additional technique that merits discussion is keyword matching. 

This technique allows a program author to define a "keyword" sequence of 
characters that, if found anywhere in the user's response in the same sequence, 
will constitute a match between the input and an anticipated answer. For exam- 
ple, assume that an author wanted to ask the following question: 


YOU HAUE REMOUED YOUR DIRTY SOCKS. 
WHAT SHOULD YOU DO WITH THEM NOW? 


Further assume that the author anticipates the following responses as possible 
answers to the question: 


WASH AND DRY THEM 

WASH THEM 

THROW THEM AWAY 

GIVE THEM AWAY 153 
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With the use of a keyword subroutine, the author can define a match of 
these anticipated answers as: 


" HASHXDRY " 
"WASH" 
"THROW" 
"GIVE" 


Thus, if the user responds with any phrase containing the word GIVE, for 
example, then a match will have been found. The author can then have the 
program make appropriate responses and transfer execution back to the original 
question or give the complete answer. If none of the anticipated answers are 
matched, a response (such as a hint) can be made and execution transferred 
accordingly. 

The program fragment, KEYWORD, found on the text diskette is one exam- 
ple of a subroutine of this nature. Although many of the program statements are 
beyond the scope of this text, it is very easy to use the subroutine. However, 
since KEYWORD is already written, there are certain conventions that must be 
followed for its successful use: 


1. The user's response must be in R$ (i.e., INPUT R$). 


2. The defined anticipated answers (keywords to search for in the user's 
response) must be assigned to A$. 


3. A$ may have as many as three keywords, delimited (separated) by an 
asterisk. 


4. Ifa match occurs between the anticipated answer and the user's response, 
A$ is set to “0” (string zero). If no match is found, A$ is set to “1” 
(string one). Appropriate branching in the program is then based upon 
the value of A$. 


5. The subroutine begins with statement number 5000. 


6. The END statement is number 10000. 


Refer to the creation and run of the program socks. 


lLOAD KEYWORD 


11 REM ===PROGRAM NAME: SOCKS=== 

12 КЕМ ===DEMOS KEYWORD SUBROUTINE=== 

13 REM ===VYARIABLE F IS A COUNTER FOR=== 
14 REM ===REPEATING THE QUESTION NO=== 
15 REM ===MORE THAN 4 TIMES=== 


KEYWORD is loaded from diskette [i.e., 
KEYWORD subroutine (statements in 
range 5000 through 10000) is loaded 
into system’s memory]. 


1—5 added to document program. 


IF F > 4 THEN 230 


PRINT 


PRINT "YOU HAVE REMOVED YOUR DIRTY" 


PRINT "SOCKS. WHAT SHOULD YOU DO" 


PRINT "WITH THEM NOM"; 


INPUT R$ 


A$ = "WASH*DRY":GOSUB 5000 


IF A$ = "1" THEN 110 


PRINT "GOOD! 


YOU MIGHT USE A BIT" 


PRINT "OF FOOT POWDER, TOO! ": СОТО 10000 


A$ = "WASH":GOSUB 5000 


IF AS = "1" THEN 140 


PRINT "DO YOU WEAR WET SOCKS?":GOTO 10 


A$ = "THROW":GOSUB 5000 


IF A$ = "1" THEN 180 


PRINT "DON'T TOSS THEM YET... TRY" 


PRINT "SOME SOAP AND HATER.":GOTO 10 


А% - "GIUE":GOSUB 5000 
IF A$ - "1" THEN 210 
PRINT "NO ONE WOULD TAKE THEM!!!":GOTO 10 


PRINT "(NO MATCH YET... )" 


PRINT "THINK ОҒ SOAP AND SUNSHINE!":GOTO 10 


PRINT:PRINT 


PRINT "THOSE DIRTY SOCKS SHOULD BE" 


Show and Tell 


20 limits number of times question 
asked to 4. 


30-60 added to ask the question. 


70 assigns user's response to R$. 


80 assigns first anticipated answer (in 
this case, correct response) to А%. Two 
keywords needed, WASH and DRY, 
delimited by an asterisk. Transfer to 
subroutine at 5000. 


Upon return from subroutine, 90 checks 
value of A$. If user's response contained 
at least keyword WASH followed 
somewhere by keyword DRY, a match 
occurred and A$ was set to “0” by 
subroutine. If no match, A$ was set 
tor", 


100—105 executed if A$ = “0” (i.e., 
match found). Transfer is then to 10000, 
the END of program. 


110 executed if no match for first 
keyword (A$ = 1”). A$ redefined as 
next keyword to check for in user’s 
response. Transfer back to subroutine. 
This sequence—define keyword, go to 
subroutine, check A$ upon return, and 
branching or responding accordingly—is 
repeated through 200. 


210—220 executed if no defined 
keywords matched. Transfer then made 
back to 10 to either ask question again 
or give correct answer, based upon 
value of F. 
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1250 PRINT “WASHED AND DRIED!!!!":GOTO 10000 
JRUN 


YOU HAVE REMOUED YOUR DIRTY 

SOCKS. WHAT SHOULD YOU DO 

WITH THEM NOW?THROW THEM IN THE LAUNDRY 
DON'T TOSS THEM YET... TRY 

SOME SOAP AND WATER, 


YOU HAVE REMOVED YOUR DIRTY 

SOCKS. WHAT SHOULD YOU DO 

WITH THEM NOW?WELL...+WASH THEM I GUESS 
DO YOU WEAR WET SOCKS? 


YOU HAVE REMOVED YOUR DIRTY 

SOCKS. WHAT SHOULD YOU DO 

WITH THEM NOW?O0K..GIUE THEM TO ANYBODY 
NO ONE WOULD TAKE THEM!!! 


YOU HAVE REMOVED YOUR DIRTY 

SOCKS. WHAT SHOULD YOU DO 

WITH THEM NOW?LET MOM WORRY ABOUT THEM 
(NO MATCH YET...) 

THINK OF SOAP AND SUNSHINE! 


THOSE DIRTY SOCKS SHOULD BE 
WASHED AND DRIED!!!! 


IRUN 


YOU HAVE REMOVED YOUR DIRTY 
SOCKS, WHAT SHOULD YOU DO 
WITH THEM NOW?HAND THEM TO MOM 
(NO MATCH YET...) 

THINK ОҒ SOAP AND SUNSHINE! 


YOU HAVE REMOVED YOUR DIRTY 

SOCKS. WHAT SHOULD YOU DO 

WITH THEM NOW?0H...I’D BETTER WASH AND DRY 
THEM!!! 

GOOD! YOU MIGHT USE A BIT 

OF FOOT POWDER: TOO! 


15АУЕ SOCKS 


Following this same sequential strategy, a variety of both anticipated correct 
and incorrect answers may be used in a program. Program KEYWORD DEMO 
on the text diskette is another example of using the keyword subroutine. A 
156 sample run is shown, followed by a listing of the subroutine. 


Refer to the run of the program keyword demo. 


IRUN KEYWORD DEMO 
^ DEMO OF THE KEYWORD SUBROUTINE 


WHAT DO WE CALL OUR FIFTY STATES 
COLLECTIVELY ?UNITED 
UNITED WHAT OF WHAT??? 


WHAT DO WE CALL OUR FIFTY STATES 
COLLECTIVELY?UNITED STATES 
UNITED STATES OF WHAT??? 


WHAT DO WE CALL OUR FIFTY STATES 
COLLECTIVELY ?AMERICA 
YES, BUT WHAT OF AMERICA??? 


WHAT DO WE CALL OUR FIFTY STATES 
COLLECTIVELY?U S A 
USA, YES...BUT SPELL IT OUT PLEASE! 


WHAT DO WE CALL OUR FIFTY STATES 
COLLECTIVELY?THE HOME OF THE FREE 


THE ANSWER I WANTED WAS THE 
UNITED STATES OF AMERICA! 


JRUN 
А DEMO OF THE KEYWORD SUBROUTINE, 


WHAT DO WE CALL OUR FIFTY STATES 


COLLECTIVELY?NEVER THE UNITED STATES!!! 


YOU ARE TRYING TO BE TRICKY! 


WHAT DO WE CALL OUR FIFTY STATES 


COLLECTIVELY?MUST BE THE UNITED STATES OF AMERICA 


THAT'S IT... VERY GOOD! 


JLOAD KEYWORD 
ILIST 


5000 REM Sesssesesesssssscscse 
5002 REM PROGRAM NAME: KEYWORD 
5004 REM SS8eaeaecssasessesezsaes 
5006 REM THIS SUBROUTINE READS A 
5008 REM USER'S RESPONSE (MUST BE 


5010 REM FROM: INPUT R$) AND CHECKS 


5012 REM FOR А "KEYWORD" CHARACTER 
5014 REM SEQUENCE MATCH AS DEFINED 


5016 REM IN A$, IF A MATCH OCCURS. 


Show and Tell 
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5018 
5020 
5030 
5040 
5042 
5044 
5046 
5048 
5050 
5052 
5054 
5056 
5058 
5060 
5062 
5064 
5066 
5068 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5380 


REM A$ IS SET TO "0"; OTHERWISE,» "1", 
REM NOTE: A$ MAY CONTAIN UP TO З 

REM KEYWORDS DELIMITED BY ж. 

REM xzxz==z=z================ 

REM THE SUBROUTINE MAY BE USED HITH ANY 
REM PROGRAM BY FIRST LOADING THE 

REM "KEYWORD" PROGRAM: AND THEN ADDING 
REM STATEMENTS IN THE SEQUENCE: 

REM PRINT(S) (FOR THE QUESTION) 

REM INPUT R$ (FOR THE RESPONSE) 

REM A$ = "DEFINED*KEYWORD*ANSMER" 

REM GOSUB 5000 

REM IF A$ = "1" THEN (TO NEXT KEYWORD) 
REM PRINT(S) (TO REPLY TO MATCH JUST MADE) 
REM GOTO (REPEAT OF THE QUESTION» 

REM OR GIVE THE ANSWER) 

REM A$ = "NEXT*KEYMORD" 

REM GOSUB 5000 ETC.» ETC. 

REM ss=================== 

REM THE FOLLOMING DIM 

REM STATEMENT MUST BE 

REM DECLARED IN THE MAIN 

REM PROGRAM: ОІМ H$(3) 

REM n==z================== 

REM INPUT A$ (AS DEFINED) 

REM ZZZZZZzzzsssssszmzczrc 

REM OUTPUT - A$ = 0 CORRECT 

REM А% - 1 INCORRECT 

REM zzzzzzzzsssczssssczz 

REM VARIABLE DICTIONARY 

REM BSS a2cesscrssssssass 

REM А% - KEYWORD(S) ANTICIPATED 

REM LA - LENGTH OF ANSWER 

REM LR - LENGTH OF RESPONSE 

REM LW - LENGTH OF KEYWORD 

REM NW - NO. OF KEYWORDS 

REM Pi+P2 - STRING POINTERS 

REM R$ - USER'S RESPONSE 

REM 3H$(3) - ARRAY FOR KEYWORDS 

REM Siaersesesssse2s2e=se2 
LA = LEN (A$) 
LR = LEN (R$) 

IF LR < LA GOTO 5620 

FOR I = 1 TO 3 

FOR J = 1 TO LA 
Pi = J 

IF MIDS (A$5;,J5,1) = "ж" GOTO 5400 
NEXT J 
P2 = Pl 


GOTO 5410 


5400 P2 = Pi - 1 

5410 W$(I) = MIDS (А%,1»Р2) 

$420 IF Pi < > LA GOTO 5450 

5430 NW = I 

5440 GOTO 5500 

5450 AS = MIDS (A$,P1 + 1А - P1) 
5460 LA = LEN (A$) 

5470 NEXT I 

5480 PRINT "ERROR - А% CONTAINS MORE THAN 3 WORDS" 
5490 END 

5500 Pi = 1 

$510 FOR I = 1 TO NW 

5520 LW = LEN (M$(I)) 

5530 FOR J = РІ TO LR - LW + 1 
5540 P2 = J 

5550 IF MIDS (R$;J;LW) = ИФ(І) GOTO 5580 
5560 NEXT J 

5570 GOTO 5620 

5580 Pi = P2 + LW + 1 

5590 NEXT I 

S600 A$ = "О" 

5610 RETURN 

5620 A$ = "1" 

5630 RETURN 

10000 END 


6.9 USING BASIC COMMANDS WITHIN A PROGRAM 


By now, you are well aware of many of the BASIC commands (CATALOG, 
LOAD, RUN, LIST, etc.) of the Apple. There is a method by which commands 
may be incorporated as statements within the body of a BASIC program. When 
one of these statements is executed it could, for example, display the catalog of 
files on the disk or execute (RUN) a given program. The second example is 
particularly useful in that one program can “command” another program to 
RUN, which could command another program to RUN, and so on. Thus, pro- 
grams can be "linked" together in sort of a "chain" fashion. 

А common use in instructional computing is to design one program as а 
“menu” of available programs on the disk. When this menu program is executed, 
a selection of programs is displayed, and the user may enter the choice desired. 
Based upon the user's input, execution is transferred to the appropriate line 
number in the menu program that commands the system to RUN the selected 
program. 

Without going into detail, we shall simply state here that a variable needs 
to be defined as a "control-D" character. One way to accomplish this is by the 
use of the statement CHR$(4) (see Appendix B). Thus, the statement 


D$ = CHR$(4) 


Show and Tell 
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11040 MENU 
1115Т 

10 REM 

20 REM 

30 REM 

40 REM 

50 REM 

60 REM 

70 REM 

80 REM 

85 REM 

90 HOME 
100 PRINT 
110 PRINT 
120 PRINT 
130 PRINT 
140 PRINT 
150 REM 
160 REM 
170 REM 
180 D$ = 
180 PRINT 
200 PRINT 
210 PRINT 
220 PRINT 
230 PRINT 
240 PRINT 
250 PRINT 
260 GET Z 
270 IF Z 
280 PRINT 
290 REM 
300 REM 
310 REM 
320 REM 


assigns a value of ‘‘control-D” to the variable D$ (any legal string variable name 
could be used). Executing the "control-D'' as a PRINT statement that includes 
the appropriate command enclosed in quotes allows the command to literally be 
a statement in the program. For example, when the statement 


PRINT D$$"RUN NEXT" 


is executed [and D$ has an assigned value of CHR$(4)], the system will auto- 
` matically LOAD and RUN the program named NEXT. 
This use of commands as BASIC statements is illustrated in program MENU 
on the disk. Carefully examine the listings of MENU, CHAIN 1, and CHAIN 2; 
then, RUN MENU and note the options and actions it provides. 


PROGRAM ‘MENU’ 


THIS PROGRAM DEMONSTRATES THE USE OF 
INCORPORATING BASIC COMMANDS INTO THE 
BODY OF A PROGRAM BY DEFINING A 
STRING VARIABLE (Е,С,› D$) = CHR$(4), 
TWO PROGRAMS» CHAIN 1 AND CHAIN 2 ARE 
USED FOR DEMONSTRATION PURPOSES. 


FOR I = 1 TO 5: PRINT : NEXT I 

ч M E N U": PRINT 

"THIS PROGRAM DEMONSTRATES HOW А “MENU " 
"OF PROGRAMS MAY BE PRESENTED FOR" 
"SELECTION AND THEN AUTOMATICALLY" 
"EXECUTED (RUN) BY THE SYSTEM." 


DEFINE А VARIABLE AS А ‘CONTROL-D’ (CHR$(4)) 


PRINT 
В YOUR OPTIONS:" 


i 1, PROGRAM CHAIN 1" 
" 2. PROGRAM CHAIN 2" 
ы 3. STOP 

* YOUR CHOICE (1-3)?" 


> = 1 AND Z < = 3 THEN 330 
"*** OUT OF RANGE ***": GOTO 250 


CLEAR THE SCREEN; CENTER: AND 
TELL WHAT’S HAPPENING... 


330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 


HOME : FOR I = 1 TO 11: PRINT : NEXT I 
ON 2 GOTO 350 ,370 ,390 

PRINT "GOING TO PROGRAM ‘CHAIN 1“, ,," 
PRINT 0% 5 "КОМ CHAIN 1" 

PRINT "GOING TO PROGRAM 'CHAIN 27..." 
PRINT D$3"RUN CHAIN 2" 

PRINT "STOPPING THIS INTERACTION AND" 
PRINT "GETTING THE DISK ‘CATALOG’..." 
FOR I = 1 TO 3000: NEXT I 

PRINT D$3"CATALOG" 

END 


lLOAD CHAIN 1 


1115Т 

10 REM PROGRAM ‘CHAIN 1’ 

20 REM ссшассаечининанттет--> 

30 HOME : FOR І - 1 TO 8: PRINT : NEXT I 

40 PRINT "AND HERE WE ARE EXECUTING" 

50 PRINT "PROGRAM ‘CHAIN 17..." 

BO PRINT 

70 PRINT "IF YOU DEPRESS THE LETTER 'N'" 

ВО PRINT "(FOR ‘NEXT’)+ WE’LL GO TO THE" 

90 PRINT "PROGRAM ‘CHAIN 2’. ANY OTHER KEY" 
100 PRINT "WILL TAKE YOU BACK TO THE 'MENU',,." 
110 D$ = CHR$ (4) 

120 GET Z$ 

130 HOME : FOR I = 1 TO 11: PRINT : NEXT I 

140 PRINT "YOU DEPRESSED THE LETTER '"3i12$5;""',,," 
150 PRINT : PRINT " S0..." 

160 IF 2% = "М" THEN 180 

170 PRINT D$s"RUN MENU" 

180 PRINT 0%5 "ВОМ CHAIN 2" 

190 END 


JLOAD CHAIN 2 


JLIST 

10 REM PROGRAM 'CHAIN 2* 

20 REM z================== 

30 HDME : FOR I = 1 TO 10: PRINT : NEXT I 

40 PRINT "WELL, HE MADE IT TO PROGRAM" 

50 PRINT "“CHAIN 2”,..50 YOU SEE IT'S" 

BO PRINT "SIMPLE TO HAUE THE SYSTEM" 

70 PRINT "FOLLOW YOUR COMMANDS **IN**" 

80 PRINT "А PROGRAM (IF YOU KNOW THE RULES...)" 
90 PRINT 

100 PRINT “NOW DEPRESS ANY KEY» AND МЕЛІ" 
110 PRINT "GO BACK TO THE ‘MENU’ PROGRAM..." 


120 


GET 2% 


Show and Tell 
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130 HOME : FOR I - 1 TO 11: PRINT : NEXT I 
140 PRINT "HERE WE GO BACK TO THE MENU..." 
150 0% - CHR$ (4) 

180 PRINT D$3i"RUN MENU" 

170 END 


JRUN MENU 
[Clear screen] 
M E N U 


THIS PROGRAM DEMONSTRATES HOW A ‘MENU’ 
OF PROGRAMS MAY BE PRESENTED FOR 
SELECTION AND THEN AUTOMATICALLY 
EXECUTED (RUN) BY THE SYSTEM. 


YOUR OPTIONS: 
1. PROGRAM CHAIN 
2. PROGRAM CHAIN 2 
3. STOP 

YOUR CHOICE (1-3)? 1 


- 


[Clear screen] 
GOING TO PROGRAM ‘CHAIN 17”, 
[Clear screen] 


AND HERE WE ARE EXECUTING 
PROGRAM ‘CHAIN 1”... 


IF YOU DEPRESS THE LETTER ‘N’ 

(FOR “МЕХТ”), WE’LL GO TO THE 
PROGRAM ‘CHAIN 2’. ANY OTHER KEY 
WILL TAKE YOU BACK TO THE ‘MENU’... 


[Clear screen] 

YOU DEPRESSED THE LETTER №, ,, 
50 ... 

[Clear screen] 

WELL; МЕ MADE IT TO PROGRAM 

‘CHAIN 2”...50 YOU SEE IT'S 

SIMPLE TO HAUE THE SYSTEM 


FOLLOW YOUR COMMANDS **IN**x* 
А PROGRAM (IF YOU KNOW THE RULES...) 


Show апа Tell 


NOW DEPRESS ANY KEY, AND HE ' LL 
GO BACK TO THE 'MENU' PROGRAM... 


[Clear screen] 
HERE WE GO BACK TO THE MENU... 
[Clear screen] 

M E М U 


THIS PROGRAM DEMONSTRATES HOW A ‘MENU’ 
OF PROGRAMS MAY BE PRESENTED FOR 
SELECTION AND THEN AUTOMATICALLY 
EXECUTED (RUN) BY THE SYSTEM. 


YOUR OPTIONS: 
1. PROGRAM CHAIN 1 
2. PROGRAM CHAIN 2 
3. STOP 

YOUR CHOICE (1-3)? 3 


[Clear screen] 


STOPPING THIS INTERACTION AND 
GETTING THE DISK ‘CATALOG’... 


DISK VOLUME 254 


*A 002 HELLO 
*B 034 TITLE 
*B 034 CREDITS 
*A 002 PROGRAM 
*ñ 003 PROGRAM 
*A 006 PROGRAM 
+А 008 PROGRAM 
*A 008 PROGRAM 
*A 009 PROGRAM 
*A 009 PROGRAM 
ЖА 011 PROGRAM 
*A 005 PROGRAM 
ЖА 008 PROGRAM 10 

ЖА 018 PROGRAM 11 

*& 021 PROGRAM 12 

*A 007 PROGRAM 13 

*A 022 PROGRAM 14 

*А 008 PROGRAM 15 

*A 013 PROGRAM 18 

*А 022 PROGRAM 17 

ЖА 016 PROGRAM 18 163 
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жА 
*ñ 
*ñ 
жА 
жА 
*ñ 
*ñ 
жА 
*А 

T 
жА 
жА 
жА 
жА 
жА 
*А 
*ü 
*ü 
*ü 
жА 
жА 
*A 
жА 
жА 
*A 
*А 
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011 
021 
014 
009 
012 
016 
006 
011 
006 
002 
008 
004 
008 
007 
004 
004 
004 
008 
016 
012 
006 
003 
003 
004 
004 
021 


PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 


19 
20 
21 
22 
23 
24 
25 
26 


RECORD INITIALIZER 


TESTS 
АЗ54 
A422 
A458 
А662 
A784 
A785 
A786 
KEYWORD 


KEYWORD DEMO 


SOCKS 
MENU 
CHAIN 1 
CHAIN 2 
START 
WARNING 
ISLAND 


Question: How could the menu of available programs on a disk be auto- 


matically displayed when the disk is loaded and the system booted up? (One 
solution is shown on the text disk in statement 90 of the HELLO program and 
by the program START.) 


6.10 POSERS AND PROBLEMS 


Identify an area in your particular field of interest in which an instruc- 
tional computing program could be written for each of the five appli- 
cations described above. Briefly outline each program by describing the 
area, content, and application in a short paragraph. 
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“What is the use of a book,” thought Alice, “without 
pictures or conversations?" 
—Lewis Carroll 


gU s 
AMT 


(> S= 
A ^ Y 


D i 2 


аас 


Think About This ( for Eun) 


A single English word can be formed from these letters. What is it? Use all the 
letters: PNLLEEEESSSSS. 


Think About This (Seriously) 


Is is possible that graphics do not always enhance instructional computing 
materials? : 


One Picture Is Wortl 
Ten Thousand Words 


7.1 OBJECTIVES 
For the successful completion of this chapter, you should be able to: 
1. Explain and give an example of how to specify a point on a graphics 


screen (Section 7.2). 


2. Define the purpose and give at least one example of each of the low- 
resolution graphics statements GR, COLOR, PLOT, HLIN, VLIN, and TEXT 
(Section 7.3). 


3. Define the purpose and give at least one example of each of the high- 
resolution graphics statements HGR, HCOLOR, and HPLOT (Section 7.4). 
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4. Design, enter, and RUN a BASIC program of your own choosing using 
low-resolution graphics. 


5. Design, enter and RUN a BASIC program of your own choosing using 
high-resolution graphics. 


7.2 WHAT ARE GRAPHICS? 


Throughout history, progress has been the result of people's ability to understand 
complex concepts. Visual tools such as drawings, photographs, films, and video 
tapes provide the medium for making complex concepts understandable to the 
masses. With the development of the computer and its ability to analyze vast 
amounts of data rapidly, its use as a tool for portraying visual information (graph- 
ics) naturally evolved. 

A computer graphic is somewhat like a printed map. Both are two-dimen- 
sional surfaces with a vertical direction and a horizontal direction. Just as any 
point on a map may be identified by its horizontal and vertical coordinates 
(latitude and longitude), any point on a computer's graphics screen can be spec- 
ified by measuring its vertical and horizontal distances from the upper left corner. 

The horizontal distance scale is called the x-axis and the vertical distance 
scale is called the y-axis. Figure 7.1 shows the Apple low-resolution graphics 
screen with the x-axis across the top of the screen and the y-axis down the left 
side of the screen. When the position of a point is specified, the distance on the 
x-axis is specified first, followed by the distance on the y-axis (the x- and y- 
coordinates of the point). For example, 20,10 specifies the point 20 units to the 
right in the x-direction and 10 units down in the y-direction. Similarly, the 
corners of the Apple low-resolution graphics screen are specified by 0,0 (upper 
left), 39,0 (upper right), 39,39 (lower right), and 0,39 (lower left). 


7.3 STATEMENTS FOR LOW-RESOLUTION GRAPHICS 


7.3.1 Statement GR 


Purpose The GR statement is used to initialize the low-resolution graphics 
screen in a program. When it is executed, the computer monitor will change 
from text to low-resolution graphics, and the screen will be cleared to black. As 
pictured in Figure 7.1, the low-resolution screen contains 160 points (0 to 39 by 
0 to 39). In addition, four text lines are available at the bottom of the screen for 
instructions, questions, and comments. 


7.3.2 Statement COLOR 


Purpose The COLOR statement sets the color for subsequent graphics 
statements. Once the color has been set, all graphics drawn on the screen will be 


One Picture Is Worth Tén Thousand Words 


Figure 7.1 
Low-resolution 
graphics screen 


(GR). 


y axis 


Text lime 21—_....................................................................................................... 
Text line 22— ....................................................................................................... 
Text line 23-- +...s.................................................................................................. 
Text line ———————————————— өз 


of that color until another COLOR statement is executed. Sixteen colors are 
available. Each color is represented by a number from 0 to 15: 


COLOR - O (black) COLOR = 8 (brown) 
COLOR = 1 (magenta) COLOR = 9 (orange) 
COLOR = 2 (dark blue) COLOR = 10 (grey) 
COLOR = 3 (purple) COLOR = 11 (pink) 
COLOR = 4 (dark green) COLOR - 12 (green) 
COLOR = 5 (grey) COLOR - 13 (yellow) 
COLOR = 6 (medium blue) COLOR = 14 (aqua) 
COLOR = 7 (light blue) COLOR - 15 (white) 


7.3.3 Statement PLOT 


Purpose Тһе PLOT statement will place a rectangular “brick” on the 
screen at the x- and y-coordinates specified in the statement. The color of the 
brick will be the color specified by the most recently executed COLOR statement. 


Example: PLOT 20:10 


(A brick will be PLOTted at a point 20 units to the right on the x-axis and 10 
units down on the y-axis. See Figure 7.1.) 169 
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NEW 


10 
20 
30 
40 
50 
60 
70 
80 


170 


Example: Enter the following program and RUN it: 


GR 

FOR I = 1 TO 15 
COLOR = I 

X = INT(RND(1)*40) 


Y = INT(RND(1)*40) 
PLOT X Y 

NEXT I 

END 


10 initializes low-resolution graphics 
screen. 

20 defines a loop to be executed 15 
times. 

30 resets COLOR to new value each 
time through loop. 

40 and 50 generate random values (0— 
39) for x- and y-coordinates. 


60 PLOTS brick on screen. 


70 and 80 continue loop and END 
program. 


What happened? If entered correctly, fifteen bricks of different colors were PLOT- 
ted on the screen. 


7.3.4 Statement HLIN 


Purpose The HLIN statement draws a horizontal line on the screen 
from a specified starting point on the x-axis, to a specified ending point on the 
x-axis. The line is located at a specified y-axis point. The color of the line will be 
the color indicated by the most recently executed COLOR statement. 


Example: HLIN 10,30 AT 20 


(A horizontal line will be drawn from the 10th to the 30th unit on the x-axis at 
the 20th unit down the y-axis. See Figure 7.1.) 


7.3.5 Statement VLIN 


Purpose The VLIN statement draws a vertical line on the screen from 
a specified starting point on the y-axis to a specified ending point on the y-axis. 
The line is located at a specified x-axis point. The color of the line will be the 
color indicated by the most recently executed COLOR statement. 


Example: YLIN 21,31 AT 5 


(A vertical line will be drawn from the 21st to the 31st unit on the y-axis at the 
5th unit to the right on the x-axis. See Figure 7.1.) 


7.3.6 Statement TEXT 


Purpose The TEXT statement returns the computer's monitor to a full 
text screen (24 lines of 40 characters). If this statement is not included at the end 
of a program using graphics, the graphics screen will remain on the monitor. 


One Picture Is Worth Ten Thousand Words 


TEXT may also be typed as an individual command to return to the full text 


Screen. 


7.3.7 PROGRAM 25: Random Colored Lines 


The five low-resolution graphics statements GR, COLOR, PLOT, HLIN, and 
VLIN provide the basis for adding diagrams, charts, and illustrations to instruc- 
tional computing materials. PROGRAM 25 demonstrates the use of these state- 


ments to generate unique art. The program is designed to: 


1. Clear the screen and color it light blue. 


2. Draw 100 vertical and 100 horizontal lines of varying lengths at random 


locations on the screen. 


3. Draw each line using a random color. 


Since PROGRAM 25 is dynamic, it must be RUN to be appreciated. The 
actions on the screen cannot be sufficiently illustrated by words or pictures in 


this text. 
Run from disk and refer to the listing of PROGRAM 25. 


LOAD PROGRAM 25 


JLIST 

100 REM =============== 

110 REM PROGRAM 25 DESCRIPTION 

120 REM =============== 

130 REM DEMONSTRATION OF LOW-RESOLUTION 
GRAPHICS, 

140 REM THE SCREEN WILL BE COLORED BLUE AND 
100 RANDOM 


150 REM LINES OF RANDOM COLORS WILL BE DRAWN, 
160 REM ===m============ 
170 REM VARIABLE DICTIONARY 


180 REM === ms... zs: s 

190 REM А - RANDOM STARTING POINT 
200 REM B - RANDOM ENDING POINT 
210 REM C - RANDOM X OR Y POINT 
220 REM I - LOOP COUNTER 

230 REM X - RANDOM COLOR CODE 
240 REM fe btn eS monet em m 

250 REM COLOR IN BACKGROUND 

260 REM IGI E X 4 3 d 3 L4 X i 

270 HOME 

280 GR 

280 COLOR = 7 

300 FOR I = 0 TO 39 


100—230 document program and list 
important variables and what they 
represent. 


270 clears text page. (Undesired text 
may otherwise appear below graphics.) 


280 initializes low-resolution graphics 
screen. 
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HLIN 0,398 AT I 

NEXT I 

REM szzrzzzzzxasSZSESI 
REM LOOP 100 TIMES 

REM кәеспессисаасат 
FOR I = 1 TO 100 

REM mm mmememm Mmmm 
REM CHOOSE RANDOM COLOR 
REM z======z======== 


LET X = INT( RND (1) * 15) 
IF X = 7 THEN 400 

COLOR = X 

REM m=s============== 


REM PLOT VERTICAL LINE 
REM =============== 


GOSUB 6810 
ULIN A+B AT C 
REM ш=====шшш=шш==ш=ш=ш 


REM ANOTHER RANDOM COLOR 
REM m=============== 


LET X = INT ( RND (1) * 16) 
IF X = 7 THEN 510 

COLOR = X 

REM s============== 

REM PLOT HORIZONTAL LINE 


REM zzzzzczzzsssszzc 
GOSUB 610 

НІМ А,В AT C 

NEXT I 

END 

REM асмаесииниасигик 

REM SUBROUTINE TO CHOOSE 
REM THREE RANDOM POINTS 


REM sssEZsSSEESEMNEEZI 

LET A = INT ( RND (1) ж 40) 
LET B = INT ( RND (1) ж 40) 
LET C = INT ( RND (1) ж 40) 
RETURN 


290 sets COLOR light blue; 300-320 
draw 40 horizontal lines completely 
across screen (x-axis points 0—39). In 
effect, this colors background light blue. 


360 defines loop which terminates at 
590. It will be executed 100 times. 


400 chooses random number 0-15. 


410 checks if chosen number equals 7, 
the background color code. If so, 
another will be chosen. Otherwise, 
COLOR set to random number at 420. 


460 calls subroutine at 610. 


470 draws vertical line from A on y-axis 
to B on y-axis at point C on x-axis. (A, 
B, C, values come from subroutine at 
610.) 


510—530 select random COLOR not 
light blue. Execution transferred again to 
subroutine at 610; 3 new random 
numbers stored in A, B, C. 


580 draws horizontal line from A on y- 
axis to B on x-axis at point C on y-axis. 


590 terminates loop. Since loop executes 
100 times, 100 random vertical and 
horizontal lines are drawn on screen. 


610—680 is subroutine generating 3 
random numbers (0—39). It stores them 
in A, B, C. 


7.4 STATEMENTS FOR HIGH-RESOLUTION GRAPHICS 


The Apple II microcomputer has two levels of graphics available: low-resolution 
graphics, as discussed above, and high-resolution graphics. High-resolution 
graphics, as the name implies, have greater detail or more resolution. However, 
something must be sacrificed for this feature—the variety of colors. 

The high-resolution screen is illustrated in Figure 7.2. A point on the screen 
is specified in the same fashion as on the low-resolution screen by giving the x- 
axis position first, followed by the y-axis position. However, the axes have con- 
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siderably more units: The x-axis contains 280 units (0 through 279) and the y- 
axis contains 160 (0 through 159). Four text lines are available at the bottom of 
the screen for instructions, questions, and comments. 

Instead of having sixteen colors available, only six are allowed: black, white, 
green, blue, orange, and violet. These colors will vary in hue depending on the 
brand of TV monitor being used. 


7.4.1 Statement HGR 


Purpose The HGR statement is used to initialize the high-resolution 
graphics screen in a program. When it is executed, the computer monitor will 
change from text to high-resolution graphics, and the screen will be cleared to 
black. As pictured in Figure 7.2, the high-resolution screen initialized with the 
HGR statement contains 44,800 points (0 to 279 by 0 to 159). 


7.4.2 Statement HCOLOR 


Purpose Тһе HCOLOR statement sets the color for subsequent graphics 
statements. Once the color has been set, all graphics drawn on the screen will 
be of that color until another HCOLOR statement is executed. Six colors are 


Figure 7.2 
High-resolution 
graphics screen 
(HGR). 
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available. Each color is represented by a number from 0 to 7 (black and white 
are represented by two codes): 


HCOLOR - O (black) HCOLOR = 4 (black) 
HCOLOR = 1 (green) HCOLOR = 5 (orange) 
HCOLOR = 2 (violet) HCOLOR - 6 (blue) 

HCOLOR = 3 (white) HCOLOR - 7 (white) 


7.4.3 Statement HPLOT 


Purpose HPLOT will place a dot on the screen at the x- and y-coor- 
dinates specified in the statement. The color of the dot will be the color specified 
by the most recently executed COLOR statement. 


Example: HPLOT 85,101 


(Plots a dot on the high-resolution screen 95 units to the right on the x-axis and 
101 units down the y-axis. See Figure 7.2.) 

The HPLOT statement can also be used to draw a line from one point on the 
screen to another. 


Example: 10 HGR 
20 HCOLOR = 3 
30 HPLOT 0,0 TO 279,159 
40 END 


(Draws a diagonal white line from the upper left corner to the lower right corner 
of the screen. See Figure 7.2.) 

HPLOT can also be used to draw a line from the last point plotted to the x- 
and y-coordinates specified. 


Example: 10 HGR 
20 HCOLOR = 3 
30 HPLOT 0,0 
40 HPLOT. TO 279 ,0 
50 HPLOT TO 279,158 
BO HPLOT TO 0,159 
70 HPLOT TO 050 
BO END 


(Draws a white border completely around the high-resolution screen.) 

A series of lines can be specified in a single HPLOT statement. The following 
example will have the same result as the previous example (a border around the 
graphics screen); however, it is done in one statement. 


Example: 10 HGR 
20 HCOLOR = 3 
30 HPLOT 0,0 TO 279,0 TO 279,159 TO 0,159 TO 
05,0 
40 END 
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7.4.4 Statement VTAB 


Purpose The VTAB statement tabs to the line number specified so that 
text can be PRINTed on that line. Both the low-resolution and high-resolution 
graphics screens have four text lines available. These lines are the 21st, 22nd, 
23rd, and 24th lines on the text screen. VTAB 21 in statement 80 of the following 
program allows statement 90 to PRINT on line 21 and statement 100 to PRINT 
on line 22. 


Example: Enter the following high-resolution graphics program and RUN 
it: 


МЕМ 

5 HOME 

10 HGR 10 initializes high-resolution graphics 

20 FOR I = 1 TO 100 screen. 

30 HCOLOR - INT(RND(1)*8) 

40 X = INT(RND(1)*280) 20—70 defines loop executed 100 times. 

50 Y = INT(RND(1)*160) 

БО HPLOT Х,Ү 30 chooses random color. 

70 NEXT I 40 chooses random x-axis position. 

80 ЧТАВ 21 

90 PRINT "THE STARS AT М№ІСНТ,,, АВЕ BIG AND 50 chooses random y-axis position. 
BRIGHT" 

100 PRINT " DEEP IN THE HEART ОҒ TEXAS."; 60 plots dot at chosen coordinate. 

110 END 


Brilliant! One hundred random points (stars) were plotted on the screen. 


7.5 HIGH-RESOLUTION GRAPHICS AND 
INSTRUCTIONAL COMPUTING MATERIALS 


When developing instructional computing materials that contain graphics, some 
special planning is necessary. In addition to the normal designing of the program, 
the graphic screens used in the program should be sketched or plotted on graph 
paper. Longer tutorial programs may require a storyboard to be prepared. This is 
a series of sketches of the graphics with the related textual information or ques- 
tions included. 

When designing the program, the graphics are most easily done in subrou- 
tines which can be called as needed in the program. The subroutines can be easily 
tested by typing RUN and the starting line number of the subroutine. (For exam- 
ple, RUN 800 would execute the subroutine beginning at line 800.) 


7.5.1 PROGRAM 26: Shape-Recognition Drill 


PROGRAM 26 is a drill-and-practice program that displays a shape on the 
screen for the student to identify. Four shapes are used: circle, rectangle, square, 
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and triangle. The program randomly presents five questions, presents the shape 
in random sizes, and keeps track of the student's score. The program elements 
required in the design are: 


1. Instructions to the student. 


2. Aloop to: 
a. Choose one of the four shapes. 
b. Branch to the appropriate subroutine. 


3. Four subroutines (circle, rectangle, square, and triangle) to: 
a. Choose a random height and width. 
b. Plot the shape, centered on the screen. 
C. Ask the student to identify the shape. 
d. Input the student's answer. 
e. Display whether the answer is right or wrong. 
f. Tally the correct answers. 


4. Display the number of correct answers. 


5. End the program. 
Run from disk and refer to the listing of PROGRAM 26. 


JLOAD PROGRAM 26 


1115Т 

100 REM =============== 100—290 document program and list 
110 REM PROGRAM 26 DESCRIPTION and identify variables. 

120 REM zzz2zzzzzz2z22zzz- 


130 REM SHAPE-RECOGNITION DRILL, 

140 REM PROGRAM DRAWS A SHAPE ON THE SCREEN 
150 REM AND ASKS USER TO IDENTIFY IT. 

160 REM SHAPES ARE: CIRCLE» RECTANGLE, SQUARE , 


AND 

170 REM TRIANGLE. SHAPES ARE DRAWN IN RANDOM 
SIZES, 

180 REM ====s=========== 

190 REM VARIABLE DICTIONARY 

200 REM szzzzzzzszzzsszz 


210 REM АМ5% - USER'S RESPONSE 
220 REM C - NUMBER CORRECT 

230 REM H - RANDOM HEIGHT 

240 REM I - LOOP COUNTER 

250 REM J - LOOP COUNTER 

260 REM И - RANDOM WIDTH 

270 REM X - X AXIS POINT 

280 REM Y - Y AXIS POINT 

290 REM Z - RANDOM SHAPE 

300 REM zzzzzsszsuszzzzz 


310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 


510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 


725 


730 


740 
750 


REM PRINT INTRODUCTION 
REM z============== 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT "ARE YOU READY? "3ANS$ 
IF AN8$ < > "YES" THEN 330 
LET С = 0 

REM 
REM 
REM 
FOR I - 
HOME 
HGR 
УТАВ 22 
PRINT "C=CIRCLE R=RECTANGLE S=SQUARE 
T=TRIANGLE" 

PRINT 
REM 
REM CHOOSE RANDOM SHAPE. 


"I AM GOING TO SHOW YOU SOME SHAPES," 


1 TO 5 


REM BRANCH TO SUBROUTINE, 

REM ==============s= 

LET Z = INT ( RND (1) * 4 + 1) 

ON 2 GOSUB 650 ,770 ,890 ,1010 

МЕХТ І 

НОМЕ 

ТЕХТ 

PRINT "YOU GOT "Сї" SHAPES CORRECT!" 
PRINT 

PRINT "SO LONG FOR NOW." 

END 

REM XL ms = 

REM SQUARE 

REM HY 

LET H = INT ( RND (1) * 81 + 10) 

LET HW = Н * 1,20 

LET Y = 80%- H Z 2 

LET X = 140 - H / 2 

HPLOT ЭҮ TO X + W+Y TO X + ЭҮ + H TO X Y 
+ H TO XY 

HPLOT X - 1; Y - 1 TO X + H*1» Y - 1 TO X 
*Ht i1: Y*H*1T0X-1»sY*H*1 
TO X = Ls Y = 3 

INPUT "WHICH SHAPE IS IT? "3ANS$ 

IF АМ5% - "S" THEN GOSUB 1170 

IF АМ5% = < > "S" THEN GOSUB 1260 


"YOU TELL ME WHAT KIND OF SHAPE IT IS." 
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330—410 clear screen, provide basic 
instructions, and ask student if ready. If 
50, program continues at 420; if student 
not ready, instructions are repeated. 


420 sets correct-answer counter, C, to 
zero. 


460 begins loop terminating at 580. It is 
executed 5 times. 


470—480 clear text screen and initialize 
high-resolution graphics screen. 


490—510 print answer codes on text line 
22. 


560 chooses random number (1-4). 


570 branches to corresponding 
subroutine. 


590 clears screen after loop executed 5 
times. 


600 switches back to full text screen. 
610 reports number of correct responses. 
630 makes concluding remarks. 


650—760 is subroutine that draws a 
square. 


680 generates random height for square. 


690 multiplies height by 1.2 to obtain 
width of square. (Because screen is 
rectangular, 1 unit on x-axis = 1.2 units 
on y-axis.) 


700—710 calculate the starting y- and x- 
axis positions; respectively, to center 
square on screen. (Note: 140,80 is 
approx. center screen.) 


720—725 draw the square. 


730 prints question on text line 24 and 
inputs answer into ANS$. If answer is 
"S" for square, subroutine at 1170 is 
executed. Otherwise, subroutine at 1260 


is executed. 
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760 
770 
780 
790 
800 
810 
820 
830 
840 


850 
860 
870 
880 
890 
900 
810 
820 
930 
940 
950 
980 


965 


970 

980 

990 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 


RETURN 

REM ======z==z= 
REM TRIANGLE 
REM =s sss 


LET H = INT ( RND (1) * 61 + 10) 
LET W =H * .7 

LE Y s BO; H g 

LET X = 140 


HPLOT Х,У TO X + WY + H TO X = Way + H 


TO XY 

INPUT "WHICH SHAPE IS IT? "iANS$ 
IF АМ5% - "T" THEN GOSUB 1170 
IF AN8$ < > "T" THEN GOSUB 1260 
RETURN 


REM езессешш 

REM RECTANGLE 

REM =ш=шш==иш 

LET Hu XNT € RND (1) ж GL + I0) 
LET H =H * 2 

LET Yee 800 = H / 2 

LET X = 140 - H / 2 

HPLOT X+¥ TO X + MY TO X + WyY + H TO Kay 
+ H TO XY 

HPLOT X - 1» Y = 1 TO X + NFI Y 
K + M + Ly Y * H * 1 TÜ £ = і, Y 


^c is Y = 1 

INPUT "WHICH SHAPE IS IT? "%АМ5% 
IF ANS$ - "R" THEN GOSUB 1170 
IF ANS$ < > "R" THEN GOSUB 1260 
RETURN 


REM mme 

REM CIRCLE 

REM z===== 

LET H = INT ( RND (1) * 61 + 10) 

LET A = GOS ( = 9.14) * H * 142 + 140 
LET V. = BIN < = 3.14) * H + 80 

HPLOT X Y 

FOR Js - 3.15 TO 3415 STEP +1 

LET X = COS (J) * H * 1,2 + 140 

LET ү e "SIN €J) * H + 80 


HPLOT TO XY 

NEXT J 

INPUT "WHICH SHAPE IS IT? ";ANS$ 
IF АМ5% - "C" THEN GOSUB 1170 

IF AN8$ < > "C" THEN GOSUB 1260 
RETURN 

REM шала IE Y Y Y Y eee E E 

REM ANSWER CORRECT 

REM z=z============== 

PRINT 

PRINT "YOU ARE CORRECT!" 


1170-1250 is subroutine that informs 
student of correct answer (1210) and 
adds 1 to correct-answer counter C 
(1220). 


1230 and 1240 loop 1000 times to slow 
drill to pleasing pace. 


1260—1330 is subroutine that informs 
student of wrong answer (1300). 


1310 and 1320 also loop 1000 times to 
slow pace. 


770—880 and 890—1000 are subroutines 
to draw triangle and rectangle. They 
follow same logic as square. Study them 
to discover technique used in each. 


1010—1160 is subroutine that draws a 
circle. Rather than connecting corners of 
an object, as with square, triangle, and 
rectangle, circle must be drawn by 
computing each x- and y-coordinate 
from a formula (polar coordinate 
formula). 


1040 randomly chooses value for circle 
radius. 


1050 calculates x-axis coordinate for 

starting point; 1060 calculates y-axis 

coordinate. Formulae are: 

X = COS(radian) x (radius) x (1.2) 
* (x-coordinate for center) 

Y = SIN(radian) X (radius) 

*- (y-coordinate for center) 


1050 substitutes — 3.14 for radian, 
variable H for radius, and 140 for x- 
coordinate of circle center. Remember, 
1.2 is width-to-height ratio of screen. 


1060 substitutes — 3.14 and H, and 80 
for y-coordinate of circle center. 


1070 plots starting point on screen. 


1080—1120 calculate subsequent x- and 
y-coordinates around circle. Loop runs 
from — 3.15 to + 3.15 (circle contains 
2т radians), stepping by 0.1. This 
stepping factor provides a relatively 
smooth circle; yet it plots at reasonable 
speed. 


1220 
1230 
1240 
1250 
1260 
1270 
1280 
1280 
1300 
1310 
1320 
1330 
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LET D =: Dr 1 1110 draws line from previous point 
FOR J = 1 TO 1000 plotted to current values of X and Y. 
NEXT J 

RETURN 1130-1150 ask student to identify shape 
REM ——— and branch to appropriate subroutine if 
REM ANSWER WRONG answer right or wrong. 

REM =============== 

PRINT 


PRINT "SORRY; TRY ANOTHER." 
FOR J = 1 TO 1000 

NEXT J 

RETURN 


7.6 SOME NOTES ABOUT USING COLOR 


The graphic statements in this chapter can be employed to “add a little color’ 
to instructional computing materials. However, there are both positive and neg- 
ative factors to be considered when using color: 


1 
2 
3. 
d 


о ч 9$ M 


Color can increase attention. 
Color can increase motivation. 
Color is less fatiguing to the eye than black and white text. 


If color is used for highlighting concepts, it must be used consistently 
throughout the program. 


Limit the number of colors used at any one time to four. 
Use highly saturated (bold) colors. 
Consider color stereotypes. (Stop signs must be red.) 


The greater the contrast between two colors (i.e., complementary colors), 
the greater the visual impact. 


Remember that 1096 of all males and 596 of all females are color-blind. 


Most important: If you emphasize everything, nothing on the screen will 
stand out! 


7.7 POSERS AND PROBLEMS 


l. 


Correct any errors in the following statements: 


10 GR 

20 COLOR - 10 

30 HPLOT 10,10 TO 100,100 
40 END 
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2: 


Modify PROGRAM 25 to draw random squares of random colors on the 
low-resolution graphics screen instead of random lines. 


What would result from the execution of the following statements? 


HGR 

HCOLOR = 2 

FOR Y = 0 TO 159 
HPLOT O,Y TO 279,Ү 
NEXT Y 

END 


Write a low-resolution graphics program that displays sixteen bars of 
different colors. (This program can be used as a test pattern to adjust the 
color on the TV monitor.) 


Write a low-resolution graphics program which displays a checkerboard 
pattern (your choice of colors) on the screen. 


Write a high-resolution graphics program that plots the function X = 
SQR(Y)*20 (vary Y from 0 to 159). 


Part 
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“It takes less time to do a thing right than to explain 
why you did it wrong." 
--Н. W. Longfellow 


"Garbage in, garbage out." 
--Апоп. 


“A thing of beauty is a joy forever.” 
—John Keats 


Think About This (for Eun) 


Using each number only once, arrange the figures 0,1,2,3,4,5,6,7,8,9 so that their 
sum is 100. 


Think About This (Seriously) 


Should every student have had an exposure to computers and their uses by the 
time of graduation from high school? 


What Are Your Intentions? 


8.1 OBJECTIVES 
For the successful completion of this chapter, you should be able to: 
1. Identify the steps of a “systems approach” to the design of instructional 
computing materials (Section 8.3). 


2. Identify an area of personal interest within which to apply instructional 
computing. 


3. Outline a rationale, a set of quantitative performance objectives, and a 
sequence of instruction for a unit of instructional computing materials 
(Sections 8.3.1—8.3.3). 
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8.2 DESIGNING INSTRUCTIONAL COMPUTING 
MATERIALS 


A working knowledge of BASIC (or any programming language) provides only 
a very small step toward the actual development of educationally valid instruc- 
tional computing materials. In fact, such materials have been designed by edu- 
cators with no computing experience whatsoever! In these cases, the completed 
design is given to a computer programmer (who often knows very little about 
the specific academic area) for translation into an executable computer program. 
The executable program is tested, refined, and eventually put to use in the class- 
room. Thus, the key to the development of valid educational materials rests 
initially with their design. 

The entire design and development process can be improved if both the 
author and the programmer have something more than a casual awareness of 
the other's area of expertise. However, it is not often that the author and pro- 
grammer are one and the same person, with expertise in both programming and 
a given academic area. Very few educators have high proficiency in programming 
techniques and strategies. Likewise, few programmers know the intricacies of 
learning theory, instructional design, teaching methodology, and so on. 

The wide acceptance and use of microcomputers in education is bringing 
about a gradual change in this, however. More and more, both inservice and 
preservice teachers are gaining knowledge in computer literacy and instructional 
computing uses. With this knowledge will come improved materials and improved 
use of this medium of instructional technology which, literally, is at our finger- 
tips. 

Design! It is not too unusual for some individuals to have the feeling that 
they have never designed anything! However, if they have ever wanted anything, 
anything at all, that was eventually obtained through their efforts, they have 
experienced the design process! This process, then, is really something common 
to most people, and it has at least one fringe benefit: It makes us think logically 
and creatively. That is, the procedure—from identification of an objective to 
its attainment—becomes a series of steps. 

Often, this logical procedure is called an algorithm, and, in fact, it is a logical 
series of steps that must be followed in designing алу effective package of instruc- 
tional materials. This process, however, is amplified greatly in designing and 
developing interactive instructional computing materials. There are several rea- 
sons for this amplification, the primary ones being the immediate feedback and 
active user participation aspects of instructional computing. The design of a pro- 
gram—for better or worse—rapidly becomes apparent to a user through the 
interactive nature of this type of instructional media. 


8.3 THE SYSTEMS APPROACH 


The design stage of instructional computing materials is one part of a process 
that is used extensively in the overall development of educational materials. 


What Are Your Intentions? 


Although this process is known by several names, and the steps may differ slightly 
among versions, it may be summarized as follows: 


statement of the rationale for use 

statement of quantitative performance objectives 
definition of the instructional sequence 

program construction 

debugging 

pilot testing 

revision 


use in the classroom 


Юю 99 i iw dae & d ҚУ p= 


revision 


M 
° 


evaluation 


These ten steps comprise the process often called 4 systems approach to instructional 
design. However, since it does involve a logical approach, another name might 
be, “A Common Sense Approach to Instructional Design.” 

The first three steps constitute the design stage and will be discussed in this 
chapter. The following seven steps will be discussed in Chapter 9. Note that, 
although all of these steps are important, the contents of each are determined 
solely by the author(s) of the instructional computing materials. In other words, 
the steps and general procedures for each can be outlined in this book, but the 
reason for any given instructional computing lesson—what it does and how it 
does it—can only be determined by its author(s). 


8.3.1 The Rationale 


Assume that an area of interest has been identified for the design and devel- 
opment of a unit of instructional computing material. Can reasons be stated why 
this particular area of interest should be taught in the first place? Can reasons be 
stated why a computer should be used? In other words, the rationale is the 
answer to why: Why teach this academic concept, and why use the computer as 
an adjunct to the instructional process? If the why cannot be justified in both 
instances, the design stage should be terminated and another area of interest 
identified. | 

The following examples of rationales are taken directly from instructional 
computing units developed by various teachers. Note how brief or how thorough 
such a rationale may be. The first example is very brief: 


The purpose of this learning module (unit) is to enrich the student's personal com- 
munication skills, provide a background knowledge for future study in business and 
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economics, and provide a beginning knowledge base of terminology for application 
in the selected career area. Terminology is essential for communicating in a specialized 
technological society. This module provides a beginning for building a vocabulary 
base in business, management and economics. 


A second, slightly longer rationale is very specific: 


Correct association of compound names with molecular formulas is a necessary skill 
for continuing successfully in a chemistry course. The names and formulas for com- 
pounds are used interchangeably throughout most chemical literature. Mastery of 
chemistry textbook reading material requires the correct identification of compound 
names and formulas. In the chemistry laboratory, names and formulas are also used 
interchangeably in labeling containers and in written laboratory procedures. A seri- 
ous error could result in the laboratory if a student incorrectly identified a compound 
used in the experiment. 


The computer can serve as an effective tool for the student who is learning to identify 
the names and molecular formulas of compounds because: 1) it allows the student 
to work at his/her individual pace, 2) it provides immediate feedback to the student 
after each answer is given, 3) it may randomly generate different questions so that 
the student has a variety of practice, 4) it scores the student at the end of the drill 
providing an estimation of progress, and, 5) it may be adapted for use in both drill 
exercises and testing. 


The third example is as specific as the second and is slightly more expansive: 


Preservice educational preparation for nursing in a coronary care unit generally focuses 
on dysrhythmia recognition. Given various electrocardiographic tracings, the learner 
is expected to label the patterns by origin and conduction of impulse, rate, and 
probable clinical sequela. She/he is rarely provided opportunity to project and eval- 
uate nursing actions based on recognition of the dysrhythmia. Consequently, these 
decision making skills are usually learned "on the job" under tutelage of a more 
experienced nurse practitioner. The trainee's learning depends, then, on numerous 
variables—the experienced nurse's willingness to teach, clinical situations which 
"happen" to be present, critical time factors which may or may not permit the trainee 
opportunity to project appropriate actions before action is required, and numerous 
other equally uncontrollable factors. Preservice teaching methods can, and should, 
be developed which facilitate the trainee's acquisition of decision making/judgment 
skills in environments created deliberately for learning; learning within the setting 
of a coronary care unit is best reserved for only those abilities which cannot be 
synthesized in any other environment. 


Simulation is one possibly effective preservice teaching technique to facilitate acquis- 
ition of decision making/judgment skills. Simulation teaching strategies have been 
noted to enable the student to: 1) actively participate in learning, 2) integrate the- 
oretical concepts to simulated life situations, 3) desensitize oneself against threatening 
situations, 4) be presented with identical "hands-on experiences" as those presented 
fellow learners, 5) experience some of the doubts, competencies, difficulties and 
anxieties that would be experienced in actual clinical settings, and, 6) respond in a 


What Are Your Intentions? 


safe standardized context free of concern about harming the patient or pleasing a 
tutor. 


What are the advantages of using the computer in designing these simulated expe- 
riences? First, the selection and sequencing of problems can be randomized inde- 
pendent of instructor or learner choice at the moment—a situation more closely 
approximating the "randomness" of the actual clinical setting. Second, the learner 
can be provided with immediate feedback on decisions made. Third, since computers 
are interactive, the student's response has a measurable effect on the material as it is 
presented. Fifth, the learner can choose the time for instruction, times when faculty 
may or may not be available. Sixth, the instructor can reconstruct precisely the sequence 
in which the student responds to the simulated clinical situation, diagnose errors in 
approach, and pinpoint reinforcement and help. 


In summary, the rationale underlying this unit rests on three premises: 1) A need for 
preservice acquisition of decision making/judgment skills exists. 2) Simulated expe- 
riences can assist in acquisition of these needed skills. 3) Use of the computer enhances 
the student's independence, assists instructor diagnosis of learning difficulties, and 
facilitates the process of simulating clinical situations. 


8.3.2 Quantitative Performance Objectives 


Students will be interacting with your programs: Do they know what is 
expected of them before, during, and after this interaction? Before a student sits 
down at a computer terminal, information should be provided that at least out- 
lines the prerequisites for interaction, what the interaction will deal with, and, 
specifically, what constitutes a successful interaction. For what goals should the 
student strive, and how will it be determined if these goals are attained? 

Continuing with our examples from the previous section, a statement of 
quantitative objectives might be as brief as: 


General: Given a basic list of business terms, the student will develop a working 
knowledge of basic business terms. The student will demonstrate this ability by com- 
pleting successfully the instructional computing units focusing on terminology mastery. 


Specific: Given a set of terminology, the student will complete the instructional com- 
puting unit with 9096 or better accuracy on a 20-word list. 


The second example is succinct and equally brief: 


1. The student will be able to state the name of a compound when given its molec- 
ular formula with 8096 accuracy. 


2. The student will be able to state the molecular formula of a compound when 
given its name with 80% accuracy. 


The third example is longer but also quite specific: 
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Given a cardiac rhythm strip, the student will identify the pattern by site of origin 
and rhythm with 100% accuracy. 


Given a cardiac rhythm strip, the student will identify an appropriate sequence of 
nursing actions from among the following four alternatives: obtain more data, 
execute a standing order, call the physician, or continue close observation. 


Given a decision to call the physician, the student will indicate the information 
to be shared, omitting no pertinent data. 


Given a decision to obtain more data, the student will ask for data pertinent to 
formulating a subsequent action-decision. 


Given feedback regarding a questionable action-decision, the student will re-eval- 
uate the decision and indicate with 10096 accuracy if the decision was appropriate. 


For a thorough and enlightening description of defining instructional objec- 
tives, the reader is referred to the classic text in this field, Preparing Instructional 
Objectives by R. F. Mager (Fearon Publications, Palo Alto, Calif., 1962). 


8.3.3 The Instructional Sequence 


This step in design is probably the most difficult for tutorial dialog programs 
and the least difficult for linear (nonbranching) programs. Obviously, the instruc- 


tional 


sequence is in part determined by the type of instructional computing 


(problem solving, drill, simulation, etc.) to be applied. This in turn is determined 


by the 
of the 


rationale, objectives, and interactive tasks defined for the unit. Regardless 
type of use, this step should include, as a minimum, answers to such 


questions as: 


1. 


Should review material or other information specifically related to the 
unit be provided prior to actual interaction? If so, what? 


What student-control options should be included? Stop at will? Skip 
problems or sections? Receive answers to questions without an actual 
attempt at answering? 


How many questions will be included in the interaction? 


What are the anticipated correct answers to questions? What response(s) 
will be given? 


What are the anticipated incorrect answers to questions? What response(s) 
will be given? 


What will the program do if neither an anticipated correct nor incorrect 
answer is matched? Give a hint? Give the answer? 


How many "misses" will be allowed? 


Will branching to review sections be provided for students having 
difficulty? 


What Are Your Intentions? 


9. Will only answers that are correct on the first attempt be recorded? 


10. How will the performance report to the student be presented? Will 
areas of strength and/or weakness be identified? 


Answers to these—and perhaps many other questions, depending upon the 
design—must be outlined on paper prior to translation of the defined sequence 
into a computer programming language. 


8.4 POSERS AND PROBLEMS 


l. Outline on paper the rationale, quantitative objective(s), and sequence 
of instruction for a short unit of instructional computing in an area of 
your interest. 
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"The young do not know enough to be prudent and 
therefore they attempt the impossible—and achieve it, 
generation after generation.” 

—Pearl S. Buck 


“The next-best thing to knowing something is 
knowing where to find it.” 
—tThe Ensign 


“Them as has, gits.” 
—Anon. 
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Think About This ( for Fun) 
A frog (male) is at the bottom of a thirty-foot well, trying to escape. Everytime 


he jumps up three feet, he falls back two. How many jumps will it require for 
the frog to get out? 


Think About This (Seriously) 


Should our society become a computer-literate society? If so, how could this be 
accomplished? 


Developmental Processes 


9.1 OBJECTIVES 
For the successful completion of this chapter, you should be able to: 
l. Identify the processes involved in the developmental steps of the systems 


approach to instructional design (Section 9.2). 


2. Identify at least ten of the twelve guidelines for the design and devel- 
opment of instructional computing materials (Section 9.3). 


3. Using information discussed in Chapters 1 through 9, design and develop 
instructional computing units. 


9.2 THE SYSTEMS APPROACH (continued) 


The design of instructional computing materials constitutes the first three steps 
of the systems approach. These steps are essentially mental, paper-and-pencil 


191 


An Introduction to the Design and Development of Instructional Computing Materials 


192 


processes. Once the rationale, objectives, and instructional sequence have been 
defined, the remaining steps of the development process—the coding, debugging, 
testing, refinement, and use and evaluation of the materials—may be started. 

The total process, from rationale to evaluation, for an original set of instruc- 
tional computing materials may require 50 to 250 person-hours for each hour 
of student interaction at a terminal. This would include development of any 
accompanying materials, such as student and instructor manuals. Of course, if 
model programs are simply adapted to a teacher's specific needs, the time required 
for development is considerably reduced. 


9.2.1 Program Construction 


Actually, this step is still a mental, paper-and-pencil process for the most 
part. It primarily involves the translation of the instructional sequence into com- 
puter program statements. This is the first of the systematic steps in which some 
degree of programming expertise is required from either the design author or a 
programmer. Programming techniques and strategies must be used in transferring 
the design concepts from paper to executable program code. This step may range 
from the trivial task of adapting a model program to the extremely involved, 
time-consuming process of translating an original, detailed design into program 
code. 


9.2.2 Debugging 


Once the code has been written, entered, and saved, execution of the pro- 
gram is attempted. Chances are, the program will not run. Problems, commonly 
called bugs in computerese, may be present. These may be anything from simple 
syntax errors (omitting quotes, misspelling statements, etc.) to technical or con- 
ceptual errors (incorrect use of a formula, right answer not accepted, omitting 
counters, branching at the wrong point, etc.). Debugging (extermination of the 
errors) is done to the point that program execution is satisfactory from the 
author's viewpoint. 


9.2.3 Pilot Testing 


Pilot testing of the program is performed next. Generally, this is done with 
the aid of teaching colleagues and a few volunteer students to test the program 
on an individual basis. It is recommended that the author literally “look over 
their shoulders" as they run the program since it is a rare case in which something 
unanticipated does not occur. These events may be as trivial as the user typing 
in an anticipated answer, followed by an unanticipated period or space which 
the program cannot handle. Alternatively, a major discussion of the conceptual 
and/or instructional strategy may be involved. Of course, the main point of pilot 
testing is feedback to the author regarding the design and content of the program. 


9.2.4 Revision 


It is common for instructional computing materials to be frequently revised. 
However, the majority of revisions occur after pilot testing. These revisions are 
usually fairly minor in nature, involving redefining anticipated answers, improv- 
ing responses, making cosmetic improvements to the display, and so on. How- 
ever, the revisions could be as major as returning to the design stage for refine- 
ment of the program or, in extreme cases, discarding the program. (If the design 
steps are thought out carefully, this probably will not occur!) Note that the pilot 
testing and revision steps are cyclic and may be repeated several times prior to 
actual classroom use of the program. 


9.2.5 Use in the Classroom/Further Revision 


Use of instructional computing materials in the classroom is, obviously, directly 
related to the design of the materials. This use may be supplemental for those 
students needing review or assistance on a given concept; it may be a required 
segment of a set of "learning activities"; it may be a prerequisite simulation of a 
real experiment prior to entering the laboratory; it may be used both as a drill 
and a testing procedure; and so on. 

Regardless of the particular application, it is safe to anticipate minor revision 
of the materials, if for no other reason than the number of users testing the 
materials will have increased. Again, it is unlikely that the materials will ever get 
to the point where no additional revisions (however minor) are needed. Thus, 
use in the classroom and revision are cyclic and may continue as long as the 
materials are a part of the given instructional process. 


9.2.6 Evaluation 


Evaluation of instructional computing materials may be divided into two 
categories. The first is an analysis to determine if the students are indeed attaining 
the defined objectives. This analysis may vary depending upon the design of the 
materials, but it is often based upon pretest and posttest results. If negative results 
are indicated, a return to Step 1 of the systems approach may be appropriate. 

The second evaluation is of the concept of using instructional computing 
materials. Did this approach as an instructional medium prove suitable? Analysis 
of this comes in part from evaluation of the materials in terms of meeting defined 
objectives. Further evaluation may be based on both student and colleague feed- 
back via attitudinal questionnaires, overall student performance, and, although 
it lacks quantitative measurement, the authors intuitive feeling. 

Note: Research since the late sixties has consistently indicated that the con- 
cept of the use of supplemental instructional computing materials is educationally 
valid. In general, the success or failure of any given instructional computing 
program rests heavily upon the design steps previously discussed. Although it 
should go without saying, the importance of thoughtful design merits emphasis 
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one final time. If, in particular, the rationale, objectives, and instructional sequence 
are very carefully defined, the chances for successful use of the materials are 
greatly enhanced. In other words, think it through, folks! 


9.3 GUIDELINES FOR DESIGN AND DEVELOPMENT 


9.3.1 Consider BASIC 


Although there are some disadvantages to using BASIC as an instructional 
computing language (primarily in translating instructional sequence into pro- 
gram code), they are minor when compared to the relative ease of acquiring a 
working knowledge of the language, its universal nature, and its transportability. 


9.3.2 Modularize the Units 


It is good practice when writing any computer program to keep it as modular 
(concise by topic) as possible. For example, if a given concept includes a series 
of subconcepts, it is better to have one program for each subconcept, rather than 
one long program for the total concept. Programs are not only easier to design 
on this basis but are also easier to debug and revise. 


9.3.3 Follow a Systems Approach 


It is obviously important that the author of a program know the why, what, 
how, and effect of using instructional computing materials. For purposes of moti- 
vation, it is equally important that the student know why the area is worth 
studying, what the objectives are, how they will be achieved, and what effect 
they will have. Following a systems approach in the design and development of 
the materials is a means by which this may be accomplished. 


9.3.4 State Quantitative Objectives 


Although this is one of the steps in the systems approach to instructional 
design, it merits reiteration. Ensure that users of instructional computing mate- 
rials know specifically the extent and effect of a successful interaction with the 
materials. This means that measurement of the objectives must be possible. 


9.3.5 Put in Personality 


Be kind to the users of your materials. Have a variety of positive reinforcers. 
Avoid the use of any negative feedback to the student; rather, make your responses 
to incorrect answers indicate that you are there "in spirit" to assist the student, 
and then proceed to do so. Include enough humor to solicit a smile or two from 
the user, but avoid the use of "cute" statements and repetitive responses. Also 
avoid the use of "fad" responses; they go out of style quickly. 


9.3.6 Consider Gluteal Limits 


Another advantage of modularization is that the user will not be sitting at a 
terminal for lengthy periods. A good "rule of rear" is to keep the interaction to 
30 minutes or less. 


9.3.7 Avoid Lengthy Text 


Do not make programs "page turners"! It is expensive and boring. One of 
the key elements in successful instructional computing is that the user be an active 
learner. If detailed information, figures, tables, and so on, are required, have 
these available as supplemental materials prior to or during the interaction. 


9.3.8 Branch fw 


Another key to success is the individualization that may be provided by 
branching. If appropriate, the program should have the capability to allow stu- 
dents to view additional material, skip areas if competence is indicated, and/or 
stop the interaction at will, based upon student need or performance. In any 
event, never construct a program so that the student is trapped in a routine with 
no means of escape. Always provide some means by which the student may 
continue. For example, give the answer after a certain number of incorrect responses 
or provide other options. 


9.3.9 Supplemental Use 


For better or worse, the major use of instructional computing is as a supple- 
ment or adjunct to traditional instruction. There are few courses that are taught 
by computer alone. Design units that will ease those areas that are routine to the 
instructional process or that can be best done by instructional computing tech- 
niques. Remember, it takes teachers to truly impart personality, lead discussions, 
and explain abstract concepts. 


9.3.10 Document 


Your work in the design and development of materials represents much time, 
effort, and thought. Thus, have your programs well documented with REMark 
statements and develop student and teacher guides where appropriate. This will 
facilitate not only the local use of your materials, but also their potential use 
elsewhere. 


9.3.11 Review the Literature 


Have others done what you are doing? Is their approach different from yours? 
Are you “reinventing the wheel"? Before you invest the effort required to design 
and develop materials, you should know what has gone before. Likewise, if your 


Developmental Processes 


195 


An Introduction to the Design and Development of Instructional Computing Materials 


196 


work is unique and successful, consider publishing a description of what you 
have done. There are a variety of instructional computing journals and other 
publications available (see Appendix D). Others interested in instructional com- 
puting should have the opportunity to become aware of your efforts. 


9.3.12 Recognize the Capabilities of the Computer 


Finally, but perhaps foremost, never forget that, to this point in the realm of 
instructional computing, computers are an incredibly fast, accurate, and useful 
tool. They can only do what they have been programmed to do. That means that 
people are providing the instructions. Thus, computer programs are only as good 
or bad in their actions as they have been designed to be by the people who 
provided the instructions. 

Instructional computing materials have been used successfully in problem 
solving, drill, testing, simulation, and, to a lesser degree, tutorial applications. In 
general, these are applications where speed and accuracy are important in improving 
the instructional process. That is where we are today. 

Where will instructional computing be in the future? More and better of the 
same? Faster and cheaper computing? Computers in every home and school? 
Libraries of validated instructional computing materials? Use in practically every 
academic discipline? It is difficult to accurately predict this future, for the limits 
are determined by something unpredictable and unlimited: imagination. 


The Apple Computer and 
How to Use It 


A.l THE APPLE П COMPUTER 


The Apple II microcomputer is one of the most popular computers used in edu- 
cation. Among the reasons for this popularity is its flexibility and expandability. 
An Apple owner can begin with a modest investment and gradually upgrade the 
system as his or her interest and budget allow. 

The variety of components available for the Apple make it difficult to describe 
all the possible combinations. Therefore, this book will limit the discussion to 
the typical system found in schools: 


1. Apple II Plus with 48K of RAM. 
2. Color television or monitor. 

3. Disk II floppy disk drive. 
4 


Dot matrix printer. 


A.1.1 The “Core” of the Apple 


From the exterior, the Apple resembles a typewriter with a keyboard but no 
place to put the paper. Inside the case of the Apple are the integrated circuits 
known as 1С% or chips that make it operate. Figure A.1 illustrates the "core" of 
the Apple. 

The functional work unit is the microprocessor chip which is located centrally 
in the computer. Surrounding the microprocessor are memory chips, peripheral 
slots, and other electronics necessary for the operation of the Apple. 

Two types of memory are found in most microcomputers. ROM, Read-Only 
Memory, has programs already stored in it by the manufacturer. These programs 
may be read but not changed in any way. They are permanent and are never 
lost, even when the power is turned off. In contrast, RAM, Random Access Memory, 
is read-and-write memory. It may be read or changed (written to). When the 
power is turned off, any programs or data stored in RAM are erased. 


Appendix 
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Figure A.1 

The “соге” of the 
Apple II. 
(Photograph by 
Carey Van Loon) 
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In the Apple II Plus, ROM contains the programs that make the computer 
operate (the operating system) and the Applesoft language interpreter. The latter 
will convert Applesoft BASIC statements and commands to meaningful codes to 
which the microprocessor can react. 

In the Apple II, the predecessor of the Apple II Plus, ROM contained the 
operating system and the Integer BASIC language. If the reader wishes to use 
such a system with this text, he or she will need either the Applesoft Firmware 
card, which contains the same ROM as the Apple II Plus, or the Language System 
which contains 16K of RAM. The Language System works by loading the Apple- 
soft BASIC interpreter into its RAM from the disk drive. (Note that, although the 
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Applesoft language can be loaded into RAM on the Apple II, it will not allow 
user access to high-resolution graphics and some of the programs contained in 
this book will not function properly.) 

The Apple II Plus is available with 16K (16,384 characters of storage), 32K, 
or 48K of RAM. This memory is used to store a BASIC program, the program 
variables, the images of the text screen, the low-resolution graphics screen, and 
the high-resolution graphics screen. When using a disk drive, the Disk Operating 
System (DOS) containing the instructions to transfer data and programs between 
the Apple and the drive is loaded into RAM. This requires at least a 32K Apple 
system. If the user also wishes to utilize the high-resolution graphics screen in 
addition to a disk drive, a 48K Apple system will be needed. Consequently, most 
educators choose the 48K system. 

Eight slots are provided inside the Apple toward the back. These slots are 
numbered 0 through 7 and are used to connect the Apple with peripheral devices. 
Slot 0, however, is the exception. It is used only for memory expansion and can 
contain the Applesoft Firmware or Language System cards mentioned above. 
Slots 1 through 7 are used for communicating with external devices such as 
printers (usually slot 1), other computers (slot 2), and disk drives (slot 6). Other 
less common peripherals include graphics tablet, clock, voice synthesis, voice 
recognition, plotter, and music synthesis. 

The remaining integrated circuits in the Apple's core are used to generate the 
screen display, decode the keyboard input, and create sounds on the Apple's 
speaker. As with all electronic appliances, severe damage or shock can result 
from liquids being spilled inside the Apple. Appropriate care should be exercised. 


A.1.2 The Television (Monitor) 


The Apple II will output to any black and white or color television. (Of 
course, color graphics cannot be displayed in color on a black and white TV. 
Alternatively, either a black and white or color monitor can be used. A monitor 
will generally produce a sharper picture than a television; however, it is usually 
more expensive. The TV set is connected to the Apple with an RF modulator 
which converts the Apple's video signal to a TV signal. The modulator is con- 
nected from inside the Apple to the TV antenna leads. If a monitor is used, it is 
connected directly to the video output plug at the right rear corner of the Apple. 


А.1.3 The Disk П Drive 


The Disk II floppy disk drive is the "file cabinet" of the Apple. It is capable 
of storing 143,360 characters of information (programs and/or data) per diskette 
and can retrieve a single piece of information in 5/100000 of a second. The disk 
drive is connected to the Apple through an interface called a disk controller which 
is plugged into slot 6 of the Apple. Two drives can be connected to one controller, 
in which case they are usually labeled drive 1 and drive 2. This book utilizes 
only drive 1. 
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A.1.4 The Dot Matrix Printer 


A variety of printers can be connected to the Apple through an interface 
plugged into slot 1. The most common and least expensive printer uses a pattern 
of dots to print the characters on the paper; hence the name dot matrix printer. 
The cost of printers range from approximately $400 to several thousand dollars; 
hence they are considered by some to be a "luxury" in the educational setting. 
However, a printer is essential to the process of developing instructional com- 
puting materials. 


А.2 HOW TO USE THE APPLE WITH THIS BOOK 


А companion to this book is a diskette containing all of the sample programs 
described in the various chapters. This diskette is designed to work on a 48K 
Apple II Plus system with a Disk II drive. A 48K Apple II system with Integer 
BASIC can be used if either an Applesoft Firmware or a Language System card 
is installed in peripheral slot 0. 

It is recommended that the reader use this diskette in conjunction with the 
book in order to study the programs. It is further recommended that a second 
diskette be used to store the programs you develop from the “Posers and Prob- 
lems." The following sections will explain how to boot up the Apple, initialize 
your own diskette, care for diskettes, use a printer, and what to do if you get into 
trouble. 


A.2.1 Booting Up 


Using the diskette labeled "An APPLE for the Teacher: Fundamentals of 
Instructional Computing," boot up the system as follows: 


1. Open the door on disk drive 1 by pulling outward on the bottom edge 
of the door. 


2. Slip the diskette into the slot in the front of the drive with the diskette 
label facing upwards. The edge ofthe diskette with the oval cutout should 
be toward the back of the drive. 


3. Push the diskette gently into the drive until it is entirely inside it. Do not 
force or bend the diskette. Close the disk drive door. 


4. Turn on the television and turn the sound down all the way. 


5. Turnon the Apple by pushing upward on the switch located at the back 
of the computer on your left-hand side. The red light on the disk drive 
will go on and the drive will make clicking sounds. 


The Apple Computer and How to Use It 


An Apple 
for the 
Teacher : 


Fundamentals of 


Instructional 


bu George Culp 


Computing and Herb Nickles 


Brooks/Cole Publishins Corpanu 


Monterey, California Copyright 1983 by Wadsworth, Inc. 


Figure A.2 
(Photograph by 
Carey Van Loon) 


6. After a few seconds, the title of this book should appear on the screen 
(Figure A.2), followed by the authors’ names. After a few more seconds, 
a warning about use of the diskette and a menu of the programs stored 
on it will appear (Figure A.3). 


7. Select a program from the menu, type in its corresponding number, and 
depress the RETURN key. The program then may be either LOADed or 
RUN at your option by depressing 1 or 2 followed by depressing the 
RETURN key. 


The process of powering up the Apple is called booting DOS by experienced 
Apple users. What takes place is that the DOS (disk operating system) is loaded 
from the diskette into RAM memory and a predetermined program is executed. 

To execute another program on the diskette, type RUN followed by the name 
of the program, and depress the RETURN key. To see a list of the program's 
statements, type LIST and depress the RETURN key. For example: 


RUN PROGRAM 1 [don’t forget the RETURN key] 


will load PROGRAM 1 from the diskette into the computer's memory and exe- 
cute it; and 


LIST [depress RETURN] 


will list all the statements of PROGRAM 1. 
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THIS IS NOT А DEMONSTRATION DISKETTE! 


THE PROGRAMS ARE AN INTEGRAL PART OF 


AND SOLELY FOR USE IN CONJUNCTION WITH 


THE ACCOMPANYING TEXT MATERIAL. 


DEPRESS ANY KEY... 


[Clear screen] 


* * MENU OF PROGRAMS жж 


EXAMPLE PROGRAMS FROM THE TEXT: 


11. ,18 4241. 2B 
is 17, 22 
13 18 23 
14 18 24 
0 15 20 25 


ANSWERS TO 'POSERS AND PROBLEMS’: 


27..А354 30..А662 33..А786 
28..А422 31..А784 
28..А458 32..4785 


DEMONSTRATION PROGRAMS FROM THE TEXT: 


34. ISLAND 36..SOCKS 
35.,KEYWORD DEMO  37..MENU 


PLEASE ENTER THE NUMBER OF THE PROGRAM 
YOU WISH?1 


[Clear screen] 


DO YOU WISH TO: 
1, LOAD 
2. RUN 


PROGRAM 1 (ENTER 1 OR 2)?1 
[Clear screen] 


LOADING PROGRAM 1... 
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А.2.2 Initializing a Blank Diskette 


You will want to store the programs you write on a diskette. Although you 
can store your programs on the diskette that comes with this book, it is best to 
use another diskette so that you don't accidentally delete a sample program. 

Obtain a new blank diskette and follow this procedure: 


1; 


After removing the sample program diskette from the disk drive, insert 
your blank diskette into the disk drive. 


Type NEW and depress the RETURN key. 
Type 10 HOME and depress the RETURN key. 


Type INIT HELLO and depress the RETURN key. The red light on the 
disk drive will glow and the drive will whirr for about two minutes. 


When the 41” character appears, remove the diskette and label the out- 
side of the diskette with a pressure-sensitive label. Use a felt pen so that 
you won't damage the diskette. 


It is very important that you have a blank diskette in the drive when you 
follow the above procedure, otherwise you will destroy any programs on the 
diskette. This procedure formats the diskette so that it can be used with the Apple. 
The DOS is copied from memory onto the diskette along with whatever program 
is stored in memory. The diskette can subsequently be used to power up (boot) 
the system. 


A.2.3 Care and Treatment of Diskettes 


The programs you store on diskette are valuable. You have an investment 
in them—either time or money or both. Eliminate troubles by following these 
simple precautions: 


1. 


Handle a diskette by the jacket (plastic cover) only. Do not allow anything 
to touch the exposed area of the diskette. 


Never subject a diskette to a magnetic field; it may erase the diskette. 
Setting your diskette on top of a TV or printer could cause problems. 


Keep diskettes flat. Do not fold, bend, or crimp in a three-ring binder. 
Insert diskettes carefully into the disk drive. Don't use unnecessary force. 


Store diskettes in their envelope away from liquids, dirty or greasy sur- 
faces, and dust. In the classroom, chalk dust can cause serious problems 
with diskettes. 


Do not expose diskettes to extreme hot or cold temperatures. Car dash- 
boards and trunks are diskette killers. 
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A.2.4 How to Use a Printer 


Since several different printers may be used with the Apple II computer, the 
following instructions for using a printer are generalized. Should these instruc- 
tions not work, refer to the printer manual. 


1. Locate the on/off switch on the printer and turn it on. 
2. Check for a switch labeled online/offline and set for online. 


3. Type PR#1 and depress the RETURN key. From now on, any text that 
appears on the television screen should also appear on the paper in the 
printer. 


4. Whena “]” appears, printing may be halted by typing PR#0 and depressing 
the RETURN key. Locate a switch on the printer labeled /inefeed or form- 
feed. Use this switch to eject the paper so that the printout can be removed 
from the printer. (Note: The printer may need to be offline to eject the 
paper.) 


The above instructions require that the printer interface be plugged into 
peripheral slot 1 inside the Apple. This is its normal location. 

The default print line length is 40 characters, the same as the Apple's screen 
line length. Some printers can print 80 characters per line. To print 80 characters, 
type the following sequence of keys: 


1. Type PR£1 and depress RETURN. 
2. Туре І while holding down the CTRL key. 
3. Type 80 and depress RETURN. 


А.З WHAT TO DO WHEN ALL ELSE FAILS 


A.3.1 Booting DOS Manually 


Because of the number of possible configurations of Apple systems, the above 
instructions will not always boot the system. If you follow the instructions in 
Section A.2.1 and the disk light does not go on, you can manually boot the DOS 
as follows: 


1. Ifa"]" or “>” appears on the screen, type PR#6 and depress the RETURN 
key. 


2. Ша “*” appears on the screen, type 6; then type P while holding down 
the СТКІ. key. Finally depress RETURN. 


The Apple Computer and How to Use It 


A.3.2 Getting Back to BASIC (Applesoft) 


Through a number of different ways, it is possible to get out of Applesoft 
BASIC (designated by a “7” prompt) and into either Integer BASIC (designated 
by a “>” prompt) or the Apple monitor mode (designated by a “+” prompt). 
Follow these directions to return to Applesoft: 


1. Ifa “>” appears on the screen, type FP and depress RETURN. 


2. Ifa “*” appears on the screen, type 3D0G and depress RETURN. (That's 
a zero after the D.) 


A.3.3 Halting a Runaway 


Sometimes when you RUN a program or make a LISTing of a program you 
may desire to stop before it finishes. To do this, type C while holding down the 
СТКІ. key. 


A.3.4 The Last Resort 


If all attempts to get yourself out of the jam you're in have failed, try depress- 
ing the RESET key and following the instructions above for getting back into 
Applesoft. Note that depressing the RESET key during a program RUN can have 
disastrous results. (Some systems require the CTRL key to be held down while 
depressing RESET.) 

The ultimate correction for problems is to turn the power off and then boot 
up the Apple again. This will definitely erase the program in memory, but it will 
not affect the diskette as long as the red light on the disk drive is not lit when 
you turn off the power. 

If you cannot get the companion diskette to this book to boot correctly, reread 
Section A.2 to make sure the Apple you are using is configured correctly. 
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Applesoft Language 
summary 


This appendix defines the most common statements and commands used by 
educators on the Apple computer. It is not a complete listing of all possible 
statements, nor does it present a detailed description of the action of each state- 
ment. The reader who requires such information is referred to the Applesoft 
BASIC programming reference manual that comes with each Apple II. 

The assumption of this appendix is the same as that of the rest of the text: 
The statements and commands as described are intended to be used on an Apple 
II Plus (or Apple II with an Applesoft Firmware or Language System card) with 
48K of RAM memory and one or two disk drives whose controller card is located 
in slot #6. This configuration is very common for educational users. If the reader's 
system is not configured in this fashion, some of the following statements and 
commands will function differently than documented. 

In the following summary, the general format for each statement or com- 
mand is followed by an example (or examples) and a description of the action 
initiated. The conventions and abbreviations used are as follows: 


€. Required element. 
Lovet Optional element. 
cond Any logical condition. 


dimension(s) The maximum dimension(s) of an array. 


expr Any numeric constant, variable, or expression. 
file Any legal filename (only the first 30 characters are used). 
key Any key on the Apple keyboard. 


line number Any legal line number from 0 to 32767. 
message Any combination of characters. 


statement Any legal Applesoft statement. 


string 


variable 
or var 


X 
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Any string constant, variable, or expression. 


Any legal variable as described in 
Section B.4. 


Any numeric constant, variable, or expression defining an x- 
axis value. 


Any numeric constant, variable, or expression defining a y- 
axis value. 


B.1 BASIC STATEMENTS 


DATA 


DIM 


FOR 


GET 


line number DATA <list of variables 

210 DATA 4.3+"A TO 2" ,10 

Provides a program with data which can be stored into variables 
using the READ statement. In the example, 4.3 is a real number, 
“A TO Z" is a string, and 10 is an integer. (See READ below.) 
line number DIM <variable(dimension(s) )> 

10 DIM A(23) 1B(3+4) ,С%(4) 1D$(12 130) 


Defines a variable capable of storing a list (single dimension) or 
a table (double dimension) of a specified length. In the example, 
A is a numeric variable with 23 possible entries. D$ is a string 
variable with a maximum of 12 rows and 30 columns. 


line number END 
32767 END 


Terminates the execution of a program. 
line number FOR <var> = <expr> TO <expr> {STEP <expr>} 
45 FOR I = 2 TO 10 STEP 2 


Creates a loop that executes all of the statements between a FOR 
and a NEXT statement a specified number of times. In the exam- 
ple, the loop would be executed for the values of I from 2 to 10 
by 2s (i.e., 2, 4, 6, 8, and 10). (See NEXT below.) 


line number GET <variable> 


70 GET X$ 


Inputs a single character from the keyboard without the char- 
acter being printed on the screen. Does not require the RETURN 
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GOSUB 


GOTO 


IF-THEN 


INPUT 


key to be pressed. In the example, the input character is stored 
in the variable X$. 


line number GOSUB «line number» 
220 GOSUB 10000 


Unconditionally branches program execution to a subroutine at 
the indicated line number. When a RETURN statement is 
encountered in the subroutine, execution is returned to the 
statement immediately following the GOSUB. The example will 
cause the program to branch to the subroutine beginning at line 
10000. (See RETURN below.) 


line number GOTO «line number 
670 GOTO 10 


Causes the execution of the program to branch to the indicated 
line number. In the example, program execution will branch 
from line 670 to line 10. 


line number IF «cond» THEN - statement 
line number IF «cond» THEN «line number» 


55 IF AS = "Y" THEN PRINT "CORRECT" 
75 IF X < Z THEN 300 


Causes the program to execute the indicated statement or branch 
to the indicated line number if a specified condition is true. If 
the condition is false, the statement or branch is not executed 
and the program continues with the execution of the next num- 
bered statement following the IF-THEN. In the first example, 
CORRECT will be printed if A$ has the string value "Y". The 
second example will cause a branch to line 300 if the value 
stored in X is less than the value stored in Z. 


line number INPUT (string;) «list of variables 


240 INPUT "WHAT IS YOUR NAME? "NAMES 
800 INPUT А,В,С 


Inputs data from the keyboard to be stored into the respective 
variables listed. Optionally, INPUT can print a string on the screen 
before waiting for input. The RETURN key must be pressed after 
the user has entered data. In the first example, the string WHAT 
IS YOUR NAME? will be printed on the screen, followed by the 
cursor. The string the user enters will be stored in NAME$. Тһе 
second example will input from the keyboard three numeric 
values separated by commas and store them into A, B, and C, 
respectively. 


LET 


ON-GOSUB 


ON-GOTO 


PRINT 
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line number LET «variable» = <expr> 
line number «variable» = <expr> 


110 LET C = 100 
120 P$ - "GREAT!" 
130 A = 1/2 * B + H 


Assigns the value of <expr> to «variable». The word LET is 
optional. In the examples, the value 100 is stored in the variable 
C, the string GREAT! is stored in the variable P$, and variable 
А will have the value of one-half the value of B plus the value 
of H. 


line number NEXT «variable» 
80 NEXT I 


Terminates a loop begun by a FOR statement. The variable must 
be the same used in the corresponding FOR statement. In the 
example, line 80 will terminate the preceding statement: 45 FOR 
I — 2 TO 10 STEP 2. (See FOR above.) 


line number ON <expr> GOSUB <list of line numbers 
30 ON X GOSUB 10000515000 


Branches to the subroutine at the line numbers indicated, based 
on the arithmetic value of an expression. In the example, the 
program will branch to the subroutine at line 10000 if X is 1 
and to the subroutine at 15000 if X is 2. If X is less than 1 or 
greater than 2, the statement immediately following the ON- 
GOSUB will be executed. 


line number ON <expr> GOTO <list of line numbers 
40 ON X - Y GOTO 50056005700 


Branches to the line numbers indicated, based on the arithmetic 
value of an expression. In the example, the program will branch 
to line 500 if X — Y has the value 1, line 600 if X — Y has the 
value 2, and line 700 if X — Y has the value 3. If X — Y is less 
than 1 or greater than 3, then the statement immediately follow- 
ing the ON-GOTO will be executed. 


line number PRINT «list of variables 


890 PRINT "YOU GOT "Мз" QUESTIONS CORRECT" 


Causes the computer to advance the cursor to the next line on 
the screen and print the values of the specified variables or strings. 
If in the example N had the value 9, YOU GOT 9 QUESTIONS 
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READ 


RESTORE 


CORRECT would appear on the screen. See Section B.3, "Text 
Formatting Statements," for more information. 


line number READ <list of variables 
465 READ X :Y Z 


Used in conjunction with the DATA statement to store data into 
variables within a program. When a READ statement is exe- 
cuted, the program will set the variables listed to the next suc- 
cessive values in the programs DATA statements. The example 
will take the next three values from the DATA statements and 
store them in X, Y, and Z, respectively. (See DATA above.) 


line number REM <message> 
10 REM PROGRAM BY IMA TEACHER 


Inserts a REMark into the program. The message only appears 
when the program is LISTed; the computer ignores all REMarks 
when the program is RUN. 


line number RESTORE 
360 RESTORE 


Returns the DATA list pointer to the first value of the first DATA 
statement, allowing the DATA to be reread. 


line number RETURN 
10450 RETURN 


Terminates a subroutine and returns execution to the next num- 
bered statement following the GOSUB which called the subrou- 
tine. (See GOSUB above.) 


B.2 GRAPHICS STATEMENTS 


COLOR 


line number COLOR - <ехрг> 
340 COLOR = 7 


Sets the color to be plotted in low-resolution graphics. The <expr> 
is an integer between 0 and 15 that represents the following 
colors: 


GR 


HCOLOR 


HGR 


HPLOT 
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line number GR 
800 GR 


Switches the display on the screen to low-resolution graphics 
(40 x 40 points) with four lines of text at the bottom. Clears 
the graphics screen to black and sets COLOR - 0 (black). 


line number HCOLOR - <ехрг> 
460 HCOLOR = 1 


Sets the color to be plotted in high-resolution graphics. The 
<expr> is an integer between 0 and 7 that represents the fol- 
lowing colors: 


0 black 2 violet 4 black 6 blue 
1 green 3 white 5 orange 7 white 


line number HGR 
390 HGR 


Switches the display on the screen to high-resolution graphics 
(280 x 160 points) with four lines of text at the bottom. Clears 
the graphics screen to black but does not change the value of 
HCOLOR. 


line number НИМ <X1>,<X2> AT «Y» 
1010 HLIN 5525 AT 20 


Draws a horizontal line on the low-resolution graphics screen 
at the y-axis position <Ү> from the x-axis position «X12 to 
the x-axis position <Х2>. The color will be that most recently 
set by the COLOR statement. In the example, a horizontal line 
will be drawn from X = 5 to X = 25at Y = 20. 


line number HPLOT <Х>,<Ү> 
line number HPLOT <X1>,<Y1> TO <Х2>,<Ү2> 
line number HPLOT TO <Х>,<Ү> 


200 HPLOT 100,130 
210 HPLOT 0,0 TO 279,159 
220 HPLOT TO 150,10 


0 black 4 dark green 8 brown 12 green 
1 magenta 5 grey 9 orange 13 yellow 
2 dark blue 6 medium blue 10 grey 14 aqua 

3 purple 7 light blue 11 pink 15 white 
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PLOT 


SCRN 


TEXT 


VLIN 


Plots dots or lines on the high-resolution graphics screen using 
the color most recently set by the HCOLOR statement. The high- 
resolution screen uses an (X,Y) coordinate system with 0,0 in 
the upper left corner. In the first example, a dot will be plotted 
at X - 100, Y - 130. In the second example, a line will be 
plotted from X — 0, Y - 0 (upper left corner) to X — 279, 
Y — 159 (lower right corner). In the third example, a line will 
be plotted from the last point plotted to X - 150, Y — 10. 


line number PLOT <Х>,<Ү> 


275 PLOT 20,30 


Plots rectangular blocks on the low-resolution graphics screen 
using the color most recently set by the COLOR statement. The 
low-resolution screen uses an (X, Y) coordinate system with 0,0 
in the upper left corner and 39,39 in the lower right corner. The 
example will plot a block at X — 20, Y — 30. 


line number <уаг> - 5СЕМ(<Х>,<Ү>) 


620 2 = SCRN(27:5) 


5СЕМ is the low-resolution graphics screen function that returns 
the color value of the graphic coordinates specified. In the exam- 
ple, Z will be set to the value of the color at X = 27, Y = 5. 


line number TEXT 


990 TEXT 


Sets the screen to the text mode of 24 lines of text with 40 
characters per line. TEXT does not clear the screen or HOME the 
cursor. 


line number VLIN <Y1>,<Y2> AT «X» 
730 ULIN 0,39 АТ 20 


Draws a vertical line on the low-resolution graphics screen at 
the x-axis position <X> from the y-axis position <Y1> to the 
y-axis position <Y2>. The color will be that most recently set 
by the COLOR statement. In the example, a vertical line will be 
drawn from Y = 0 to Y = 39 at X = 20. 


B.3 TEXT FORMATTING STATEMENTS 


COMMA (,) 


line number PRINT <var>,<var> 


370 PRINT QUANTITY PRICE TOTAL 


FLASH 


HOME 


HTAB 


INVERSE 


NORMAL 


POS 
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Used in a PRINT statement to space data into 16-column fields. 
In the example, the value of the variable QUANTITY will be 
printed in column 1, the value of the variable PRICE will be 
printed in column 17, and the value of the variable TOTAL will 
be printed in column 33. 


line number FLASH 


1500 FLASH 


Sets the text printing mode to flashing characters. All text printed 
after this statement will flash. NORMAL reverses this action. 


line number HOME 
10 HOME 


Clears the text screen and returns the cursor to the home posi- 
tion in the upper left corner. 


line number HTAB <ехрг> 
550 HTAB 27 


Moves the cursor to the specified column number (1 to 40). The 
HTAB statement is usually followed by a PRINT statement. In 
the example, the cursor will be moved to column 27. 


line number INVERSE 
345 INUERSE 


Sets the text printing mode to black-on-white characters instead 
of white on black. All text printed after this statement will be 
printed in inverse. NORMAL reverses this action. 


line number NORMAL 
610 NORMAL 


Sets the text printing mode to normal white-on-black charac- 
ters. Reverses the action of the FLASH and INVERSE statements. 


line number <уаг> — POS( <ехрг>) 
730 X = POS(0) 


POS is the text function that returns the current horizontal cur- 
sor position (0 to 39). Although <ехрг> is required, the expres- 
sion has no effect on the results. In the example, X will be set 
to the current horizontal cursor position. 
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SEMICOLON () line number PRINT <string>; <var> 


SPC 


SPEED 


TAB 


840 PRINT "YOU GOT "М?" CORRECT." 


Used in a PRINT statement to position the cursor immediately 
after the string or variable preceeding the semicolon. If N — 10 
in the example, the printed line would read: 


YOU GOT 10 CORRECT. 


line number PRINT <var>;SPC(<expr>);<var> 
480 PRINT АЗ5РС(10):38 


Used in a PRINT statement to insert a specified number of spaces 
between two variables when preceded and followed by semi- 
colons. In the example, the value of A will be printed, followed 
by 10 spaces and then the value of B. 


line number SPEED - <ехрг> 
180 SPEED - 200 


Sets the speed at which characters are printed on the screen. The 
default speed, 255, is the fastest system speed. Zero is the slowest 
speed. 


line number PRINT TAB(<expr>);<var> 
ВО PRINT TAB(25)5R 


Used in a PRINT statement to move the cursor to the specified 
column, where 1 is the left margin and 40 is the right margin. 
TAB can only move the cursor to the right. Use HTAB to move 
the cursor to the left. In the example, the value of R will be 
printed starting in column 25. 


line number VTAB <expr> 
120 UTAB 18 


Moves the cursor to the specified line number. The top of the 
screen is line 1; while the bottom is line 24. The VTAB statement 
is usually followed by a PRINT statement. In the example, the 
cursor will be moved to line 18. 


B.4 SUMMARY OF VARIABLE TYPES 


INTEGER 


Variable name: Single letter (optionally followed by a single 
letter or digit) followed by the "96" character. 
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Range: -— 32767 to +32767. 
Examples: 1%, В2%, GH% 


Variable name: Single letter (optionally followed by а single 
letter or digit.) 


Range: --9.99999999 Е--37 to +9.99999999 E+ 37 
Examples: S, R5, DE 


Variable name: Single letter (optionally followed by a single 
letter or digit) followed by the "$" character. 


Range: 0 to 255 characters 
Examples: F$, K9$, XY$. 


Note that variable names may be longer than two characters, 
but only the first two characters are significant. Consequently, 
APPLE and APPLIANCE are the same real variable, AP. 


B.5 SUMMARY OF OPERATORS 


ARITHMETIC 


LOGICAL 


RELATIONAL 


+ addition 
division 
^  exponentiation (raise to a power) 
x multiplication 
subtraction or negation 


~ 


AND logical product 
NOT logical negation 
OR logical sum 


= equals 

> greater than 

> = greater than or equal to 
© less than 

<= less than or equal to 
<> not equal to 


+ concatenation 
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B.6 MATHEMATICAL FUNCTIONS 


ABS 


ATN 


cos 


EXP 


INT 


LOG 


RND 


line number <var> = ABS(<expr>) 

100 X = АВ5(-6.75) 

Returns the absolute value of <expr>. In the example, X = 
6.75. 

line number <var> = ATN(<expr>) 

100 X = АТМ(1) 

Returns the arctangent of <expr> in radians. In the example, 
X = .785398163. 

line number <var> = COS(<expr>) 

100 X = COS(1) 

Returns the cosine of <expr>. <expr> must be in radians. In 
the example, X = .540302306. 

line number <var> EXP(<expr>) 

100 K = EXP(1) 

Returns the value ел<ехрг>, where e = 2.7182828183. In 
the example, X = 2.71828183. 

line number <var> = INT (<expr>) 

100 X = INT (4,53) 

Returns the greatest integer in <expr> which is less than or 
equal to <expr>. In the example, X = 4. 

line number <var> = LOG(<expr>) 

100 X = LOG(2) 

Returns the natural logarithm of <expr>. In the example, X = 
.693147181. 

line number <var> = RND(<expr>) 

100 X = RND(1) 


Returns a random number greater than or equal to 0 and less 
than 1. If <expr> is positive, a unique set of random numbers 
is generated. If <expr> is 0, then the last random number gen- 


SGN 


SIN 


SQR 


TAN 
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erated is returned. If <expr> is negative, the same set of random 
numbers will be generated every time the program is run. 

line number <var> = SGN(<expr>) 

100 X = SGN(-217.456) 

Returns the sign of <expr>: - 1 if positive, 0 if zero, and — 1 
if negative. In the example, X = — 1. 

line number <var> = SIN(<expr>) 

100 K = SIN(1) 

Returns the sine of <expr>. <expr> must be in radians. In the 
example, X = .841470985. 

line number <var> = SQR(<expr>) 

100 K = SOR(16) 


Returns the square root of <expr>. In the example, X = 4. 


line number <var> = TAN(<expr>) 
100 X = TAN(1) 


Returns the tangent of <expr>. <expr> must be in radians. In 
the example, X = 1.55740772. 


B.7 STRING FUNCTIONS 


ASC 


CHR$ 


LEFTS 


line number <var> = ASC(<string>) 

100 X = ASC("APPLE") 

Returns the ASCII code for the first character in the string spe- 
cified. In the example, X = 65. 

line number <string> = CHR$(<expr>) 

100 X$ = CHR$(65) 

Returns the ASCII character specified by the numerical value of 
<ехрг>. In the example, X$ — “А” 

line number <string> = LEFT$(<string>,<expr>) 


100 X$ = LEFTS$( "APPLE" +3) 217 
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LEN 


MID$ 


RIGHTS 


STR$ 


VAL 


Returns a substring of <string> from the first character to the 
<expr>th character. In the example, X$ = “APP”. 


line number <var> = LEN(<string>) 

100 X = LEN("APPLE") 

Returns the number of characters contained іп <string>. In the 
example, X — 5. 

line number <string> = MID$(<string>,<exprl>,<expr2>) 
100 X$ = MID$("NOW IS THE TIME" 556) 

Returns the substring of <string> that begins with the character 
specified by <ехрг1> and has a length of <expr2> characters. 
In the example, X$ = “IS THE”. 

line number <string> = RIGHT$(<string>,<expr>) 

100 X$ = RIGHT$( "APPLE" +2) 

Returns the substring of <string> consisting of the rightmost 
characters specified by <expr>. In the example, X$ = “LE”. 
line number <string> = STR$(<expr>) 

100 X$ = STR#(24.07) 


Converts the <expr> to a string. In the example, X$ = “24.07”. 


line number <var> = VAL(<string>) 
100 X = VAL("365 DAYS") 


Converts the <string> to a real or integer variable. The con- 
version will terminate when a non-numeric character is encoun- 
tered. In the example, X — 365. 


B.8 BASIC AND DISK COMMANDS 


CATALOG 


CATALOG {,D<expr>} 
CATALOG :D2 


Prints a list of all the files on a diskette. Optionally the disk drive 
number, D<expr>, may be specified. In the example, a catalog 
of the diskette in drive two will be listed on the screen. 


DEL 


DELETE 


LIST 


LOAD 
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DEL «line number>,<line number 
DEL 350,400 


Deletes line numbers from the program in memory starting with 
the first line number specified and ending with the second line 
number specified. In the example, line 350, line 400, and all of 
the lines with numbers between 350 and 400 will be deleted. 


DELETE <file> {,D<expr>} {,V<expr>} 
DELETE BUTTERFLIES 


Erases a file from a diskette. Optionally, the drive number or 
volume number may be specified. In the example, the file BUT- 
TERFLIES will be erased from the diskette in the drive last used. 


INIT <file> {,D<expr>} {,V<expr>} 
INIT HELLO; U25 


Initializes a blank diskette so that it can be used. The current 
program in memory will be saved as the <file> specified, and 
that program will be run when the diskette is booted. Optionally, 
the drive number or volume number may be specified. In the 
example, the diskette in the drive most recently used will be 
initialized as volume 25 with the program in memory stored as 
HELLO. 


LIST («line number») (, «line number») 


LIST 
LIST 300 
LIST 1000 ,2000 


Lists lines of the program іп memory on the screen. Optionally, 
a line number or range of line numbers may be specified. In the 
first example, the entire program will be listed. In the second 
example, line 300 only will be listed. In the third example, lines 
1000 to 2000, inclusive, will be listed. 


LOAD <file> {,D<expr>} {,V<expr>} 
LOAD SNOW WHITE 


Loads the specified file from a diskette into memory. The current 
program in memory will be erased. Optionally, the drive number 
or volume number may be specified. In the example, the pro- 
gram SNOW WHITE will be loaded into memory from the disk 
most recently used. 
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LOCK 


NEW 


PR 


RUN 


RENAME 


SAVE 


LOCK <file> {,D<expr>} {,V<expr>} 
LOCK MATH DRILL 


Protects a file from being replaced or deleted accidentally. The 
UNLOCK command will reverse the action. Optionally, the drive 
number or volume number may be specified. In the example, 
the file MATH DRILL will be LOCKed on the diskette in the 
drive most recently used. 


NEW 


Erases the program and variables currently in memory. Used to 
clear memory before writing a new program. 


PR#<expr> 


PR#6 
PR#1 
PR#0 
Transfers output to the specified peripheral slot number. In the 
examples, PR#6 boots disk drive 1; PR#1 transfers all subse- 


quent output to a printer, assuming the printer interface is in 
slot 1; PR#0 returns output to the screen. 


RUN {<file>} {,D<expr>} {,V<expr>} 
RUN SPELL 


Executes the program in memory if no file is specified. If a file 
is specified, memory is cleared, the file is loaded from a diskette, 
and the program is executed. Optionally, the drive number or 
volume number may be specified. In the example, the program 
SPELL will be loaded from the most recently used disk drive 
and executed. 


RENAME <filel>,<file2> {,D<expr>} {,V<expr>} 
RENAME PROGRAM 1+MUSCLES 


Changes the name of <filel> to <file2> on a diskette. Option- 
ally, the drive number or volume number may be specified. In 
the example, PROGRAM 1 will be renamed MUSCLES on the 
diskette in the drive most recently used. 


SAVE <file> {,D<expr>} {,V<expr>} 
SAVE PICKLES 


UNLOCK 
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Saves the program currently in memory on diskette as the file 
specified. Optionally, the drive number or volume number may 
be specified. If the file specified already exists on the diskette, it 
will be replaced by the program in memory unless it was LOCKed. 
In the example, the program in memory will be saved with the 
name PICKLES on the diskette in the drive most recently used. 


UNLOCK <file> {,D<expr>} {,V<expr>} 


UNLOCK MATH DRILL 


Removes the accidental replace or delete lock on the file speci- 
fied. Optionally, the drive number or volume number may be 
specified. In the example, the file MATH DRILL will be unlocked 
on the diskette in the drive most recently used. 


B.9 SPECIAL KEYS 


ARROW KEYS 


CONTROL 
(CTRL) 


ESCAPE (ESC) 


LEFT ARROW (<) 
RIGHT ARROW (—) 


The two keys on the Apple keyboard marked with a left arrow 
and right arrow are used to edit programs. The LEFT ARROW 
is used to delete characters previously typed in the current line. 
The RIGHT ARROW will reenter a character on the screen as 
though you were typing it. 


CONTROL <key> 


CONTROL C 
CONTROL G 
CONTROL X 


The CONTROL key is used in conjunction with other keys to 
specify a variety of actions. To execute a CONTROL sequence, 
hold the CONTROL key down and then depress the other key. 
In the examples, CONTROL C will break the execution of a 
program and print the line number at which execution termi- 
nated, CONTROL G will sound a bell on the Apple speaker, and 
CONTROL X will delete the current line being typed. 


ESCAPE <key> 


ESCAPE I 
ESCAPE J 
ESCAPE K 
ESCAPE M 
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REPEAT (REPT) 


The ESCAPE key is commonly used to edit programs. When the 
ESCAPE key is typed, the moveable-cursor mode is entered. The 
keys I, J, K, and M are used to move the cursor up, left, right, 
and down, respectively. Once the cursor is positioned, any key 
except I, J, K, and M will return to normal mode. The LEFT 
ARROW and RIGHT ARROW keys may then be used to make 
edits. 


REPEAT <Кеу> 


When the REPEAT key is held down in conjunction with another 
key, the other key will be repeatedly typed. 


RESET 
CONTROL RESET 


The RESET key immediately halts the execution of a program 
and sets the screen to TEXT mode. If RESET is typed while a 
program is being saved on a diskette, the file may be damaged. 
For this reason, newer Apples have an internal switch which 
can be set to require the CONTROL key to be held down while 
typing RESET. 


B.10 ASCII CHARACTER CODES 


The following codes are used in the CHR$ and ASC functions: 


Code 


ÜN бо м4 С\ \л & o N н © 


Character Code Character 
CTRL @ 48 0 
CTRL А 49 1 
СТКІ, В 50 2 
CTRL С 51 3 
CTRL D 52 4 
CTRL E 53 5 
CTRL F 54 6 
СТКІ. С (bell) 55 7 
CTRL H (—) 56 8 
CTRL I 57 9 
CTRL J 58 : 
CTRL K 59 ; 
CTRL L (form feed) 60 < 
CTRL M (return) 61 = 
CTRL N 62 > 
CTRL O 63 ? 


Code Character Code Character 
16 CTRL P 64 (а) 
17 СТКІ, О 65 А 
18 CTRL R 66 B 
19 CTRL S 67 C 
20 CTRL T 68 D 
21 CTRL U (>) 69 E 
22 CTRL V 70 F 
23 CTRL W 71 G 
24 CTRL X 72 H 
25 CTRL Y 73 I 
26 CTRL Z 74 J 
27 ESC 75 K 
28 not available 76 L 
29 CTRL SHIFT M T4 M 
30 CTRL ^ 78 N 
31 not available 79 о 
32 ЅРАСЕ 80 Р 
33 ! 81 Q 
34 ы 82 R 
35 * 83 S 
36 $ 84 T 
37 96 85 U 
38 & 86 V 
39 d 87 w 
40 ( 88 X 
41 ) 89 x 
42 ы 90 Z 
43 + 91 [ 
44 d 92 not 
available 
45 - 93 ] 
46 š 94 A 
47 / 95 not 
available 
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Appendix 


Answers to Selected 
Questions and Problems 


CHAPTER 1 


Think About This (for Fun) 


One Word 


Text Questions 


Section 1.5.3 The output would be “close packed" (printed 


with no separating spaces). 


Section 1.5.5 Тһе blank space is needed to separate the comma 


from the name (value of N$). Otherwise, the 
comma and name would be close packed, as in 
HOWDY,SAMMY. 


Posers and Problems 


J; 
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10 PRINT "HELLD" 

20 PRINT "WHAT’S YOUR HEIGHT IN INCHES"; 
30 INPUT H 

40 М = 2.54 * H 

50 PRINT "YOU ARE ";Mi" CENTIMETERS TALL!" 
60 END 


25, 4, 6, .66666667, 3 


So that any output will be close packed. Commas cause 
the output to be tabbed 16 spaces before being printed. 


The semicolon close packed the "?" printed by execu- 
tion of the INPUT statement (60). 


See Section 2.4 of Chapter 2. 


NAME SCORE AVERAGE 
<-16 spaces—>< 16 spaces — 


Enter and RUN the program. 


20 
30 
40 
50 


20 
30 
40 
50 
60 


70 


10. 10 
20 
30 
40 
50 
60 


PRINT "DEGREES CELSIUS"; 

INPUT C 

F = (С ж 9/5) + 32 

PRINT Ci" DEGREES C = "$F$" DEGREES Р," 
END 


PRINT "HOM MANY CUPS"i 

INPUT C 

PRINT “HOW MANY OUNCES"; 

INPUT Z 

T = (8 +С) +2 

PRINT Ci " CUPS "323" OUNCES = "Т" 
TOTAL OUNCES." 

END 


PRINT "FIRST NAME"; 

INPUT F$ 

PRINT "LAST NAME"; 

INPUT L$ 

PRINT "HELLO; "iF$i" "jL$;"I!" 
END 


CHAPTER 2 


Think About This (for Fun) 


А chair, a bed, and a toothbrush. 


Text Questions 


Section 2.3 INT(10 * .99999999 + 1) = 10 


INT(10*.01 + 1) = 1 
Range of INT(10 * RND(1) + 3) = 12 to 3 
Range of INT(9901 * RND(1) + 100)/100 = 
100.00 to 1.00 

Range of INT(91 * RND(1) + 5) = 95 to 5 


Posers and Problems 


10. 
11. 


12. 


R is for numeric input (years) 
R$ is for string input (state name) 


There is no real difference. Random output would still 
be given. If X is 1, then 440 is PRINTED, and so on. 


Change the text of PRINT statements 400, 420, and 
440. 


Change PRINT statements 200 and 210 to ask for your 
age; change the “39” in statements 230-250 to your 
age. 


380 X - ІМТ(5 ж RND(1) *1) 

390 ON X GOTO 400,420,440,452,456 
452 PRINT "HO-HO! NOT THAT OLD!" 
454 GOTO 140 

456 PRINT "COME DOWN SOME!" 

458 GOTO 140 


70 PRINT "ИНАТ STATE IS THE THIRO" 

80 PRINT "LARGEST BY LAND AREA" 

100 IF R$ = "CALIFORNIA" THEN 130 

110 PRINT "МО, IT'S CALIFORNIA!" 

130 PRINT "RIGHT! WHERE THE ORANGES GROW!" 


1 PRINT "HHAT'S YOUR FIRST NAME"; 
2 INPUT F$ 
510 PRINT ,"ВҮЕ-ВҮЕ, "iF$;"!" 


X = INT(76 * RND(1) + 25) 
29 to 5, inclusive 


10 PRINT "WHAT'S YOUR HEIGHT IN INCHES"; 
20 INPUT H 

30 IF H > 72 THEN 80 

40 IF Н < 80 THEN 100 


50 PRINT 

60 PRINT "AUERAGE" 
70 GOTO 110 

80 PRINT. "TALL" 

90 GOTO 110 

100 PRINT "SHORT" 
110 END 


10 PRINT "ENTER THREE SIDES (SEPARATED BY 
COMMAS) »" 

20 PRINT “WITH THE LONGEST SIDE ENTERED 
LAST" 

30 INPUT А,В,С 

40 IF А > C THEN 90 

50 IF В > С THEN 80 

80 IF (D ^ 2) = СА " 2) + (B ^ 212 THEN 
110 

70 PRINT "NOT А RIGHT TRIANGLE" 

80 GOTO 120 

80 PRINT "LONGEST SIDE NOT ENTERED LAST!" 

100 GOTO 10 

110 PRINT "THAT'S А RIGHT TRIANGLE!" 

120 END 


Answers to Selected Questions and Problems 


13. 10 PRINT "ENTER ANY NUMBER: 1-10, 
INCLUSIVE"; 
20 INPUT N 
30 A$ = "WAS ENTERED." 
40 IF М = 3 THEN 90 
SO IF N = 6 THEN 110 
60 IF N = 9 THEN 130 
70 PRINT "NEITHER З, 6, OR 9 "SAS 
80 GOTO 140 
80 PRINT “THREE "iA$ 
100 GOTO 140 
110 PRINT "SIX "SAS 
120 GOTO 140 
130 PRINT "NINE "GAS 
140 END 


CHAPTER 3 
Think About This (for Fun) 


In 


Text Questions 


Section 3.2.2 А new value (2) was READ and assigned to М 
at statement 60. 


ABC would be printed. 


A new value (DEF) was READ and assigned 
to N§ at statement 40. 


Use of commas (tabs) and semicolons (close 
packs). 


Section 3.2.3 After statement 30 is executed, the data pointer 
is “past” the last data element. 


The error was caused by no DATA present to 
be READ (the data pointer is “past” the last 
element). 


Statement 60 increases X by 1 each time it is 
executed. When X is equal to 2 (statement 50), 
transfer is to statement 100 (END). 


The program would endlessly READ, PRINT, 
and RESTORE. 


Posers and Problems 


1. 10 FOR Y = 1 TO 10 


10 DATA 15"ABC","DEF" 
(or) 

20 READ N N$ ,N1 

30 PRINT N,N$ ,N1 
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Answers to Selected Questions and Problems 


DEL 60,70 Section 4.2.2 The comma in statements 65 and 81 are 
(or) (cont.) needed to tab before printing the first and sec- 
55 RESTORE ond scores. The PRINT in 95 is needed to can- 
(or) cel the tab effect of statement 81. 


10 DATA 415515657 
2. 40 PRINT S$ S 


50 NEXT I Posers and Problems 
60 END 
3 ST=O 1. 10 REM N$()=NAME$ S()=SEM.AVE.$ F()=FINAL 
4a2T=T+S EXAM 
44 X = X +i 20 DIM М$(20),5(20),Е(20) 
55 PRINT "THE AVERAGE SCORE IS "iT/Xi"!" 30 FOR I - 1 TO 20 
40 READ М$(1),5(1),Е(1) 
4. LOAD, RUN, and LIST program A354 from the text 50 PRINT N$(I) »S(I) F(I) 


diskette. 60 NEXT I 


5. FOR X = 10 TO 1 STEP -1 starts at 10 and “counts” 
the loop to 1 in increments of – 1. 


The comma in statement 55 tabs 16 spaces before printing. 1000 REM DATA FOR 20 STUDENTS AND THEIR 
SCORES 
The ";" in statement 70 close packs the “tails” (* ). 1010 DATA "JONES" ,80 ,82, [etc.] 


The 90 PRINT statement “cancels” the close packing of . 
the semicolon in statement 70. ° 


6. 10 PRINT "CELSIUS" ,"FAHRENHEIT" WU END 
20 PRINT "------- .,........... w 2. 10 REM М$()=МАМЕ, S( , )=STUDENT SCORES 
30 FOR C = 0 TO 100 STEP 5 20 DIM N$(25) ,5(25,3) 
40 F = 32 + (C ж 9/5) 30 FOR I = 1 TO 25 
50 PRINT C F 40 READ N$(I) 
60 NEXT C 50 FOR J = 1 TO 3 
70 END 60 READ S(I J) 
7. 10 FOR I = 1 TO 10 Zo: NEST 3 
20 PRINT Ii" CUBED IS "i1 ^ 3 Bo NEXT T 
30 NEXT I ^ 
40 END . 
1000 REM DATA FOR 25 STUDENTS, EACH HITH 
3 SCORES 
CHAPTER 4 1010 DATA "ABEL",85,B0,BB, *etc,+ 
4. Three states would be randomly selected (with a random 
Think About This (for Fun) chance that one would be repeated). 
5. Three states would be randomly selected without any 
A 50-cent piece and a nickel (one of the coins is not a nickel — state being repeated. 


alth th is! 
ы. асан 6. Five states would be printed without any repetition. Then 


the program becomes an endless loop, trying to find the 
Text Questions sixth state not yet printed (FOR K - 1 TO 6) when only 
five states were given. 


Section 4.2.1  N$(3) = PHIL; S(4) = 35; the two lists would 7 5F=0 


be printed. 25 H$ = "STEPHEN F, --?--" 

55 H$ = "DICK AND JANE'S DOG." 
The lists would be printed, but in reverse order 212 IF F = 1 THEN 220 
(4 to 1). 214 F = 1 


218 PRINT "HINT: "iH$ 


Section 4.2.2 S(1,1) = 95; 5(3,2) = 93 Sie atiam 


For the complete program іп Section 4.2.2, не: 4 > 4 
LOAD, RUN, and LIST program A422 on the ети 
text diskette. 8. LOAD, RUN, and LIST program A458 on the text diskette. 
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9. 10 DIM Z(10) 
20 FOR І = 1 TO 4 
30 X = INT(10 ж RND(1) + 1) 
40 IF Z(X) = 1 THEN 30 
50 2(Х) = 1 
60 PRINT X 
70 NEXT I 
80 END 


CHAPTER 5 


Think About This (for Fun) 


The man opened one carton, took one package, opened it, and 
then dropped one cigarette overboard. This made the raft a 
cigarette lighter! 


Posers and Problems 
ы” 


INPUT R$ 

IF R$ = A$ THEN 260 
IF F = 1 THEN 300 
230 F = 1 

PRINT H$ [Give a hint] 
250 GOTO 200 


280 IF F = 1 THEN 280 [Skip giving credit] 
270 C = C + 1 [Give credit] 

280 PRINT "UERY GOOD!" 

280 GOTO 310 

300 PRINT "А CORRECT ANSWER IS "iA$ 
310 RETURN 


2. See statements 220—250 in the above program fragment. 


10 REM 9$()=QUESTION’ A$()-ANSMER i 


Z()=FLAG 
20 DIM 9$(10) ,А%(10) ,2(10) 
30 FOR I = 1 TO 10 
40 READ 9%(1) ,А$%(1) 
50 NEXT I 
60 FOR 9 = 1 TO 5 
70 X = ІМТ(10 ж RND(1) + 1) 
80 IF Z(X) = 1 THEN 70 
80 2(X) = 1 


100 PRINT 0%(Х9 


1000 REM DATA FOR 10 QUESTIONS» ANSWERS 
1010 DATA "QUESTION 1", "ANSHER 1", [etc.] 
* 


D 


D 


Answers to Selected Questions and Problems 


2000 END 


5. LOAD, RUN, and LIST PROGRAM 16 from the text 
diskette. (PROGRAM 16 is an example program in 
Chapter 6.) 


CHAPTER 6 


Think About This (for Fun) 


There are 6 F's (the "of's" are often overlooked). 


Text Questions 


Section 6.7.2 For five choices, 
modifications: 


make the following 


270 DIM А$(5) »RS(S) 

5050 FOR I = 1 TO 5 

5110 PRINT "YOUR CHOICE (1-5)"i 
5150 IF R > 5 THEN 5110 


Then add additional data elements for each 
fifth choice and its response. 


CHAPTER 7 


Think About This (for Fun) 


SLEEPLESSNESS (ав іп programming) 


Posers and Problems 


1. 10 HGR 
20 HCOLOR = 3 
30 HPLOT 10,10 TO 100,100 
40 END 


440 REM PLOT SQUARE 

460 LET А - INT(RND(1) ж 40) 
470 НІМ Oñ АТ 0 

480 ULIN OA АТ 39 

490 HLIN А,0 АТ 39 

500 ULIN А0 АТ O 


510 МЕХТ І 
520 END 


DEL 530,680 


3. The screen will change from text to high-resolution 
graphics, and the entire screen will be colored violet. 
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10 
20 
30 
40 
50 
60 
70 
во 


10 
20 
30 
40 


HOME 
GR 
FOR I = 0 TO 15 
COLOR = I 
VLIN 0,39 AT І * 2 + 5 
VLIN 0,39 ATI #2 +6 
NEXT I 
END 
HOME 
GR 
COLOR * 8 
FOR Y = 0 TO 39 
HLIN 0,39 AT Y 
NEXT Y 
COLOR * 13 
FOR Y - 0 TO 38 STEP 2 
FOR X - 0 TO 38 STEP 2 
PLOT X Y 
NEXT X 
NEXT Y 
FOR Y = 1 TO 38 STEP 2 
FOR X = 1 TO 39 STEP 2 
PLOT X Y 
NEXT X 
NEXT Y 
END 
HOME 
HGR 
HCOLOR = 3 
FOR Y = O TO 158 
X = SQR (Y) * 20 
HPLOT X Y 


70 NEXT Y 
80 END 


10 HOME 

20 HGR 

30 HCOLOR = 3 

35 HPLOT 0,0 

40 FOR Y = 1 TO 159 
50 X = SOR(Y) * 20 
80 HPLOT TO X Y 

70 NEXT Y 

80 END 


CHAPTER 8 


Think About This (for Fun) 


5015 + 492% = 100 


CHAPTER 9 


Think About This (for Fun) 


28 jumps (after 27 jumps, the frog is 3 feet from the top of the 
well; one more jump of 3 feet is needed). 
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Annotated Bibliography 


The periodicals listed in the following pages were selected from a more complete 
bibliography developed by Ron Adams of The College of New Caledonia in Mac- 
kenzie, British Columbia, Canada. These periodicals were judged by the authors 
as being most useful to the teacher using an Apple microcomputer in the class- 
room. The prices quoted are for one-year subscriptions taken out in Summer 
1982. (Note: Any comments found in the abstracts are those of Professor Adams 
and not the authors.) 


ADCIS NEWSLETTER U.S.A. $40 membership APPLE EDUCATION NEWS Free 


Computer Center CANADA $40 
Western Washington University 


Bellingham, WA 98255 


This newsletter is published every two months by 
the Association for the Development of Computer- 
Based Instructional Systems, one of the oldest and 
best-organized groups of post secondary computer- 
using educators. It has special-interest groups for 
those developing software for health education, 
home economics, mathematics, music, PLATO, ele- 
mentary and secondary schools, computer-based 
training, and the handicapped. ADCIS annually hosts 
one of the most important computers-in-education 
conferences, and publishes the quarterly Journal of 
Computer-Based Instruction, which provides some of 
the most scholarly articles in this field. 


APPLE ASSEMBLY LINE U.S.A. $12 
S-C Software CANADA $12 
Box 280300 


Dallas, TX 75228 


A monthly newsletter featuring beginners’ tutori- 
als, utility programs, and programming techniques 
in Apple assembly language. 


APPLE EDUCATORS' NEWSLETTER 


Box 20485 
San Jose, СА 95106 


This newsletter, published occasionally by the Apple 
Corporation, is a useful source of information on 
the burgeoning Apple-based CAI programs being 
developed in American universities, colleges, and 
schools. It also contains the inevitable glowing per- 
formance accounts of the company's educational 
software, as well as of the software being developed 
for the Apple by other companies. The newsletter 
is evidently intended for distribution in computer 
stores because there is no subscription information 
in it. 


U.S.A. $15 
9525 Lucerne Street CANADA $25 


Ventura, СА 93004 


The newsletter is published every two months by 
the Apple for the Teacher group, a California-based 
organization of elementary and high school teach- 
ers dedicated to sharing and developing educa- 
tional software reviews and information on CAI 
projects that don't get coverage in the glossy mag- 


azines. Recommended. 
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APPLE ORCHARD 


APPLEGRAM 


BOUNTY 
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APPLE MAGAZINE Free 


10260 Bandley Drive 
Cupertino, СА 95014 


The Apple Corporation's quarterly catalogue dis- 
guised as a magazine. It contains several short arti- 
cles lauding the Apple's versatility as a personal and 
small-business computer, and provides an up-to- 
date listing of all hardware and software marketed 
by the company. It's available at Apple dealers and 
usually is given free to potential customers. 


U.S.A. $15 
910A George Street CANADA $22.50 


Santa Clara, CA 95050 


The quarterly magazine of the International Apple 
Core, a loosely structured umbrella organization of 
200 Apple-user groups around the world. It con- 
tains useful utility programs, programming tips, short 
articles on computer literacy, a column on new 
products for the Apple, and an occasional inter- 
view—most of which are reprinted from member 
groups’ newsletters. For example, the Spring 1981 
issue contains an interview with Apple founder Steve 
Wozniak and a tutorial on text-formatting far supe- 
rior to the explanation in the Apple manuals. The 
optional $100 IAC club membership includes sub- 
scription to Apple Orchard, five diskettes of contrib- 
uted software, and a newsletter of technical notes 
on the Apple. 


CANADA $15 membership 
Apples B.C. Computer Society 

316-8055 Anderson Road 

Richmond, B.C. 

Canada V6Y 1S2 


The quarterly newsletter of the Apples B.C. Com- 
puter Society, which includes several of the prov- 
ince's top microcomputer programmers. It contains 
software reviews, program listings, short articles on 
technical topics, buy-and-sell advertisements, club 
notices, and a list of programs that members con- 
tributed to a software library that can be bought for 
$10 a disk. 


U.S.A. $6 
17710 De Witt Avenue 
Morgan Hill, CA 95037 


A quarterly newsletter for special education teach- 
ers that includes a "computer corner" devoted to 
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CALL-A.PPL.E. 


reviews of microcomputer software for the learning 
disabled. 


BYTE U.S.A. $19 


Box 590 CANADA $21 


Martinsville, NJ 08836 


Byte is McGraw-Hill's monthly attempt to imitate 
the worst features of Scientific American and the Sears 
catalog. The articles are not only highly technical 
and frequently devoted to arcane subjects that will 
bewilder the small-systems user, but also buried in 
a blizzard of advertising that occasionally pushes 
this unexceptional magazine to 500 pages. Each 
issue has a theme (local network and data base 
management systems have been featured in recent 
months) and a do-it-yourself project by electronics 
wizard Steve Ciarcia. Indeed, Byte may well be the 
only microcomputer periodical that will appeal to 
computer professionals and hobbyists who have their 
basements crammed with gadgetry. Nonetheless, 
it's the leading microcomputer journal and the 
advertisements will keep you abreast of the latest 
developments and all the new hardware in the field. 
I buy it for three reasons: Bytelines, which is Sol 
Libes's fascinating analysis of news and rumors in 
the microcomputing industry; the Education Forum, 
which reports CAI projects at various American 
universities and colleges; and Robert Tinney's 
remarkable covers, which will surely become 20th 
century classics. 


U.S.A. $40 membership 
304 Main Avenue South CANADA $40 
Suite 300 membership 


Renton, WA 98055 Subsequent years $15 


Published nine times a year, Call-A.PPL.E. is the 
magazine of the oldest and most sophisticated of 
the Apple-users groups—the Apple Puget Sound 
Program Library Exchange. It is an excellent source 
of programming tips, utility program listings, soft- 
ware reviews, and product reports. Although it is 
geared to experienced users, beginners and experts 
alike may call a "hot line" for advice from 9 a.m. 
to 3 p.m. and 6 p.m. to 10 p.m. seven days a week. 
The hot line has saved me many hours of frustra- 
tion. I strongly recommend membership in Call- 
A.PPL.E. for serious Apple users. 


CLASSROOM COMPUTER NEWS 


COMPUTERTOWN USA! 
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THE CATYLIST U.S.A. $12 puter-assisted instruction, and the impact of com- 
1259 El Camino Real puters on curriculums. Apart from the usual arti- 
Suite 275 cles and software reviews, The Computing Teacher 


Menlo Park, CA 94025 


Published six times a year, The Catylist features arti- 
cles and reports on microcomputers in special 
education. 


U.S.A. $16 
Box 266 CANADA $21 


Cambridge, MA 02139 


Classroom Computer News is probably the best source 
of educational software reviews. My complimen- 
tary issue contained the following articles: “Com- 
puter literacy—What Should Schools Be Doing 
About It?”; “A School Administrator Looks at Vis- 
icalc"; "Special Tools for Special Needs"; “Pro- 
gramming 1—The Starting Gate"; “Word Proces- 
sors for Teachers"; "Microcomputers in the School 
Library's Future"; and "How Does the Computer 
Remember All That Stuff?" Highly recommended 
for teachers. 


CREATIVE COMPUTING 


features reports on CAI projects, articles on instruc- 
tional design, and an assortment of calculator and 
microcomputer programming assignments that can 
be adapted to classroom use. Any teachers using a 
microcomputer should not be without this journal. 


U.S.A. $25 
Box 789-M CANADA $30 


Morrison, М) 07960 


If you plan to purchase only one magazine, this 
should be your choice. Creative Computing has all 
the types of articles, reviews, program listings, and 
columns usually appearing in other microcompu- 
ter monthlies, as well as a sense of humor: It's 
sprinkled with cartoons, delightful pen-and-ink 
drawings, satirical pieces, short stories, puzzles, and 
even the occasional poem. Moreover, it's not 
restricted to computer topics. Recent issues had an 
excellent series on effective writing techniques that 
any writer can use. The judgement of its editors, 
however, appears shortsighted: they rejected this 


COMPUKIDS U.S.A. $12 
Box 874 a critical bibliography with a typewritten form letter. 
Sedalia; MO 65301 CUE NEWSLETTER U.S.A. $6 
A monthly newsletter for children that contains Independence High School CANADA $8 


stories, games, and contests that will appeal to jun- 
ior microcomputer enthusiasts. 


Donations 
Box E 
Menlo Park, CA 94025 


The monthly newsletter of a group of enthusiasts 
dedicated to promoting computer literacy in Menlo 
Park, California. Their projects include microcom- 
puter fairs, programming contests, and public dem- 
onstrations, as well as the installation of microcom- 
puters in public libraries. It’s a good source of ideas 
on grass-roots microcomputer uses. For example, 
the August 1981 issue has an article on raising funds 
for the purchase of microcomputers. 


1776 Educational Park Drive 
San Jose, СА 95133 


Published every two months, this is the newsletter 
of California's computer-using educators, an 
enthusiastic group of several hundred elementary 
and high school teachers who have just started an 
educational software exchange. Members can buy 
several diskettes of modest educational programs 
for the Apple, PET, and TRS-80 for $10 a diskette. 
The newsletter outlines CUE's many activities, and 
prints short but revealing software reviews from a 
teacher's viewpoint. It is a model for computer-using 
educators’ groups and is well worth the low mem- 
bership fee. 


EDUCATIONAL COMPUTER 
MAGAZINE U.S.A. $12 
THE COMPUTING TEACHER U.S.A. $14.50 Box 535 CANADA $20 


Computing Center CANADA $20.00 
Eastern Oregon State College 


La Grande,OR 97850 


Edited by David Moursund, a leading CAI educator, 
this journal focuses on teacher education, com- 


Cupertino, CA 95015 


Educational Computer is a new magazine for teachers 
in schools, colleges, and universities. It is published 
every two months and features articles, reviews, 
editorials, and letters on educational topics. 
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EDUCATIONAL TECHNOLOGY 


ELECTRONIC LEARNING 


U.S.A. $49 
140 Sylvan Avenue CANADA $59 


Englewood Cliffs, М) 07632 


A monthly periodical for audio-visual specialists 
and educators interested in the technological aspects 
of education. It consists mostly of indifferently edited 
research papers on arcane subjects written in aca- 
demic language by professors who must, even at 
the cost of clear expression, publish or perish. A 
noticeable exception is Gerald T. Gleason's survey 
of the use of microcomputers in education (March 
1981, pp. 7-18), which succinctly summarizes recent 
developments in the field. The editors of Educational 
Technology have recently discovered microcompu- 
ters and are devoting more and more coverage to 
their educational applications. This no doubt will 
be a boon to graduate students and the many edu- 
cation faculty members who judge scholarship by 
the number of footnotes per manuscript page. 


USA $19 
Scholastic Inc. 

Box 2001 

Englewood Cliffs, NJ 07632 


Electronic Learning is a colorful, easy-to-read mag- 
azine published eight times a year for teachers. 
Articles in recent issues include a nine-part primer 
on computers, a detailed outline of a course in 
computer literacy, a guide to purchasing microcom- 
puters, and a tutorial on evaluating educational 
software. It regularly features articles on the edu- 
cational potential of new products like the video- 
disc, a comprehensive directory of software houses, 
and lists of microcomputer courses offered in the 
United States. Reviews of educational software are 
short and often superficial, but teachers will find it 
a good source of ideas for classroom projects. It 
does not favor any brand of microcomputer. Every 
elementary and high school staff room should have 
a subscription. 


ILLINOIS SERIES ON THE EDUCATIONAL 
APPLICATIONS OF COMPUTERS U.S.A. 50% per paper 
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College of Education 
University of Illinois 
Urbana, Ш 61801 


A series of academic papers "prepared as resources 
for the pre-service training of teachers under the 


INFOWORLD 


ITMA NEWSLETTER 


general theme of teaching with or about com- 
puters.” I'm not well enough informed in the teacher- 
training field to evaluate this comprehensive series. 
Some of the material may be dated, but no doubt 
it will be very useful to education faculty interested 
in adding computer-assisted instructional technol- 
ogy to their curriculums. 


U.S.A. $25 
Circulation Department CANADA $52 
375 Cochituate Road 


Framingham, MA 01701 


А weekly newspaper aimed at the personal and 
business microcomputer user that will keep you 
informed on the latest developments in the indus- 
try. The coverage is comprehensive and most arti- 
cles are free of jargon. Particularly valuable are its 
editorials and its many candid software reviews, 
many of which are for the Apple. Each issue has an 
extensive collection of classified ads as well as a 
delightful satire written by "Minnie Floppy." Also 
revealing are its letters to the editor from irate peo- 
ple who have found that some of the much her- 
alded microcomputer products leave a great deal to 
be desired. This is the periodical that I look forward 
to receiving the most. 


Free, but send 
College of St. Mark and St. John 530 for postage 
Derriford Road 

Plymouth, PLó 8BH 

Great Britain 


The quarterly newsletter of the British Investiga- 
tions on Teaching with Microcomputers as an Aid, 
a rapidly growing group of British teachers dedi- 
cated to developing, evaluating, and promoting CAI 
materials. It features valuable material on CAI tech- 
niques, articles written by teachers, and educa- 
tional program listings in 380Z BASIC. The news- 
letter furnishes proof of Britain's energetic promotion 
of the educational applications of microcomputers. 


JOURNAL OF COMPUTER-BASED 
INSTRUCTION 


See ADCIS 
Computer Center 

Western Washington University 

Bellingham, WA 98225 


The JCBI is the academic quarterly of Western 
Washington's Association for the Development of 


JOURNAL OF COURSEWARE REVIEW 


Computer-Based Instructional Systems. The people 
who put it out assert that it publishes "original 
investigations and theoretical papers dealing with 
direct applications of computing to the problems of 
learning and instruction, design of curriculum, 
authoring languages and systems, and comparative 
curriculum structures for computer-based instruc- 
tion." Contributors are urged to submit "empirical 
studies that use experimental procedures which will 
maximize the potential generalizability of out- 
comes." Put that into your computer. 


JOURNAL OF COMPUTERS IN 
SCIENCE TEACHING 


U.S.A. $7 
Box 4825 
Austin, TX 78765 


Published quarterly by the Association for Com- 
puters in Science Teaching, this journal features 
research reports, tutorials, and software reviews 
pertinent to elementary and high school science 
teaching. 


U.S.A. $6.95 
Box 28426 
San Jose, СА 95159 


A collection of professional reviews of educational 
software for the Apple. It is published by the Foun- 
dation for the Advancement of Computer-aided 
Instruction (formerly the Apple Education Foun- 
dation), a non-profit organization that furnishes 
hundreds of thousands of dollars worth of micro- 
computer equipment each year to people who pro- 
pose innovative CAI projects. The first issue is $6.95, 
a modest price to pay to save you from purchasing 
poor software. 


MICRO U.S.A. $24 


Box 6502 CANADA $27 


Chelmsford, MA 01824 


A monthly for experienced APPLE, PET, OSI, TRS- 
80 Color, and KYM/SYN/AIM programmers. Each 
issue includes one or more useful utility programs 
for the Apple, but most of the content is devoted 
to the other microcomputers. However, Micro does 
have two features that make it worth the subscrip- 
tion price: a monthly annotated bibliography of 
articles in many microcomputer journals and а 
comprehensive directory of new software. 


MICROCOMPUTING 


NIBBLE 


PEELINGS II 


PERSONAL COMPUTERS 


Annotated Bibliography 


U.S.A. $25 
Box 977 CANADA $27 


Farmingdale, NY 11737 


Microcomputing is a comprehensive, carefully edited 
monthly noted for excellent articles on technical 
topics and for regular features on the microcom- 
puter industry, education, business, new products, 
and book reviews. Serious microcomputer users may 
prefer it to Creative Computing. Editor Wayne Green's 
perceptive monthly analysis of the industry is worth 
the price of Microcomputing. Highly recommended. 


U.S.A. $17.50 
Box 325 CANADA $18.00 


Lincoln, MA 01733 


A magazine for advanced Apple users. Each of the 
eight yearly issues features at least two major pro- 
gram listings for home, small-business, or enter- 
tainment use that can be typed into the Apple. It 
also contains a selection of program tips, hardware 
construction projects, and product reviews. The 
major listings may also be obtained on diskettes for 
$15 or less. Those who enjoy programming swear 
by Nibble, and no Apple owner should be without 
a subscription. Highly recommended. 


U.S.A. $21.00 
2260 Oleander Street CANADA $28.50 


Las Cruces, NM 88004 


A privately published collection of comprehensive 
reviews of Apple II software. Reviewers Edward 
Burlbaw, Howard de St. Germain, John Metallaro, 
and John Mitchener don’t mince words: if the pro- 
gram is a lemon, they will tell you. What's more, 
they provide information on the capabilities of soft- 
ware that other reviewers miss. Each program is 
given a letter grade for any comparison, and adver- 
tising is accepted only from companies who are 
making quality software. Peelings II is undoubtedly 
the most useful single reference for the Apple owner. 
The review of word processing software in the July 
issue is itself worth a two-year subscription. It is 
published nine times a year. 


U.S.A. $1.75 an issue 
] Fawcett Place 
Greenwich, СТ 06830 


Месһапіх Illustrated's quarterly magazine оп micro- 
computers. It is designed for newsstand sale (sub- 
scription information wasn't given in the first two 
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PERSONAL COMPUTING 


PIPELINE 


POPULAR COMPUTING 
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issues) and the articles and product reviews are brief 
and easy to read, but rather superficial. 


U.S.A. $18 
Circulation Department CANADA $26 
1050 Commonwealth Avenue 


Boston, МА 02215 


A well-designed, easy-to-read топ у with articles 
on varied topics and regular columns on business, 
education, computer chess, computer bridge, and 
the future of computing. Since it used to have a 
slight bias toward the TRS-80, it was originally not 
high on my recommended list for Apple owners; 
but recent issues have improved so much under 
editor David Gabel that Personal Computing may soon 
rival the leaders. 


U.S.A. $25 membership 
Conduit 

Box 388 

Iowa City, ТА 52244 


A semi-annual report of the University of Iowa's 
CONDUIT organization, а U.S.A. government-sup- 
ported project designed to develop, evaluate, and 
market computer-assisted instructional materials for 
higher education. Members of CONDUIT receive 
Pipeline, a CAI authoring guide, and brochures on 
new post-secondary CAI materials, some of which 
are available for the Apple, PET, and TRS-80. Pipe- 
line contains several short articles on CAI research, 
as well as a catalogue of $50 disk-based programs 
in biology, chemistry, economics, education, geog- 
raphy, psychology, sociology, humanities, manage- 
ment, mathematics, physics, political science, and 
statistics. Recommended. 


U.S.A. $15 
(formerly ONCOMPUTING) CANADA $18 
70 Main Street 


Peterborough, NH 03458 


McGraw-Hill's new monthly is aimed at magazine- 
stand browsers and new microcomputer owners. It 
contains easy-to-read reviews and articles on 
microcomputers, peripheral devices, software, and 
new products—all of which are lavishly illustrated 
with color photographs and diagrams. It is proba- 
bly the best magazine for beginners. 


SCHOOL MICROWARE DIRECTORY 


SCHOOL MICROWARE REVIEW 


SOFTALK 


U.S.A. $20 
Dresden Associates CANADA $20 
Box 246 


Dresden, MA 04342 


А typewritten quarterly catalogue of educational 
software available for the major microcomputers. 
Entries are listed by subject and grade level ranging 
from Kindergarten to Grade 12. Unfortunately, the 
programs are not reviewed, and anyone purchasing 
educational software sight unseen can expect to be 
disappointed. 


U.S.A. $30 
Dresden Associates CANADA $30 
Box 246 


Dresden, MA 04342 


For $30 more than the cost of their preceding direc- 
tory, Dresden Associates will send you two issues 
of educational software reviews solicited from sub- 
scribers. One would expect such reviews to appear 
in Dresden's School Microware Directory; thus, the 
publication of a separate newsletter appears to be 
an attempt to separate educators from their limited 
computer funds. 


SCIENTIFIC AMERICAN U.S.A. $21 
Box 5959 
New York, NY 10017 


This leading scientific monthly occasionally pub- 
lishes highly technical but well-illustrated articles 
on microelectronics that are worth searching out. 
Silicon-chip technology was thoroughly explained 
in the issues of May 1975 and September 1977; the 
super-conducting Josephson Junction was featured 
in the May 1980 issue; disk-storage technology was 
described in the August 1980 issue; and the new 
“supercomputers” were discussed in the January 
1982 issue. 


U.S.A. $24 
11021 Magnolia Boulevard CANADA $24 


North Hollywood, CA 91601 


An excellent monthly that features chatty articles 
on the people in the microcomputer industry, a lively 
readers' forum, a programming contest page that 
will encourage submissions from Apple users of all 
ages, a revealing disk-jockey-style list of best-sell- 
ing programs for the Apple. Highly recommended. 


SOFTSIDE 


TECHNOLOGY ILLUSTRATED 


U.S.A. $24 
Box 68 CANADA $32 
Milford, NH 03055 


А monthly devoted largely to printed-games soft- 
ware for the Apple, PET, TRS-80, and Atari micro- 
computers. It also has tips for advanced 
programmers. 


TALMIS NEWSLETTER 


115 North Oak Park Avenue 
Oak Park, П. 60301 


A. Neilson-rating-style newsletter of educational 
software reviews scheduled to begin publication in 
August 1982. 


U.S.A. $9.95 
Box 2804 CANADA $15.00 


Boulder, СО 80321 


A lavishly illustrated new magazine designed to 
explain technological developments to the layman. 
Like Science Digest, the magazine it imitates, Tech- 
nology Illustrated covers a wide range of topics. The 
first issue (October/November 1981) starts with an 
article on the history of computers and concludes 
with a note on the zany wartime research of B. Е 
Skinner, who is described as "the best-known sci- 
entist of our time." I liked it. The photographs were 
ideal for my introductory lecture on the history of 
computing, and I still consider B. E. Skinner's Beyond 
Freedom and Dignity to be one of the most impor- 
tant books ever written, even if he did get his start 
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trying to train pigeons to operate the controls of a 
guided missile. Teachers will probably find Technol- 
ogy Illustrated a good source of classroom ideas. 


U.S.A. $15 
Box 992 CANADA $23 


Acton, MD 20172 


А journal published every two months subtitled 
Technology Horizons in Education for school admin- 
istrators by Information Synergy Inc. of Acton, 
Maryland. It contains short reviews of new equip- 
ment and erudite articles on the theoretical and 
practical applications of technological advances in 
education at all levels. Complimentary subscrip- 
tions are available to senior administrators. I rec- 
ommend it for educational planners and graduate 
students in education. 


WASHINGTON APPLE PI 


Box 34511 
Bethesda, MD 20817 


The monthly newsletter of the large Apple users 
group in the Washington, D.C. area. A collection 
of their best articles 1980—1981 is available for $7.50. 
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